Вопрос по информатике:
Информатика 10 класс
1) Написать функцию ,которая выдаёт истину ,если число четное и если ложь - нечетное.
2) Написать процедуру ,которая заменяет все четные числа в массиве 0 и выводит результат на экран.
Пожаловаться
- 25.05.2018 03:09
- Информатика
- remove_red_eye 14628
- thumb_up 37
Ответы и объяснения 1
1)function chet(a:longint):boolean;
begin chet:=(a mod 2)=0; end;
2) procedure z(var a:array of longint;length:longint);
var i:longint;
begin
for i:=1 to length do
begin
if not odd(a[i]) then a[i]:=0;
write(a[i],' ');
end;
end;
begin chet:=(a mod 2)=0; end;
2) procedure z(var a:array of longint;length:longint);
var i:longint;
begin
for i:=1 to length do
begin
if not odd(a[i]) then a[i]:=0;
write(a[i],' ');
end;
end;
Пожаловаться
- 26.05.2018 22:05
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы