Напишите как сделать программу в Паскале. Все 2 задачи
5-9 класс
|
1)
const n = 5;
var
i, a, count: integer;
begin
for i := 1 to n do begin
readln(a);
if(a mod 2 = 0) then inc(count);
end;
writeln('Кол-во четных чисел: ', count);
end.
2)
var
i, n, count: integer;
begin
readln(n);
for i := 1 to n do begin
write(exp(ln(2)*i), ' ');
if(exp(ln(2)*i) <= 200) then inc(count);
end;
writeln('Кол-во эл. не превышающих 200: ', count);
end.
Другие вопросы из категории
элементы с нечетными значениями в три раза а элементы с четными значениями заменяя на ноль СРОЧНО!!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!
но известно, что в радиограмме использовались только следующие буквы:
Т - "-"
Р - ". - ."
И - ". ."
Й - ". - - -"
П - ". - - ."
Определите текст исходной радиограммы по полученной шифрованной радиограмме:
. - - . . - . - . . . - - . . - - -
В ответе укажите, сколько букв было в исходной радиограмме.
Читайте также
котенка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будут хранится значения веса котенка в течение мая.3)На основе этих заданий надо составить фрагмент программы на Паскале ввода исходных данных для массивов.
каждого года XX века?
2)Вы приобрели котёнка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будет храниться значения веса котёнка в течение месяца (например,мая)?
2. Каким образом можно перезагрузить компьютер?
3.Какие служебные программы имеются в составе Windows и для чего они предназначены?
4. Какие основные типы программного обеспечения?
5. В чем состоит основное различие между операционной системой и прикладными программами?