Pascal ABC Операторы case of ; if then else ; for to do; Помогите написать программы........................................................................................................................................... кот...
Pascal ABC Операторы case of ; if then else ; for to do;
Помогите написать программы..........................................................................................
................................................. которые находятся в файле
Гость
Ответ(ы) на вопрос:
ГостьЗадача 1
Var i,n,a,sum:integer;
Begin
Write('Введите n: '); readln(n);
for i:=1 to n do
if (i mod 2 = 0) then begin
a:=a+1;
sum:=sum+i;
end;
Writeln('Кол-во четных чисел: ',a,' их сумма = ',sum);
End.
Задача 2
Var i:integer;
Begin
for i:=100 to 999 do
if (i mod 2 = 0) then write(' ',i);
End.
Задача 3
Var i,k,i1,i2,i3:integer;
Begin
Write('Введите k: '); readln(k);
for i:=100 to 999 do begin
i1:=i div 100;
i2:=i mod 100; i2:=i2 div 10;
i3:=i mod 10;
if (i1+i2+i3 = k) then write(' ',i);
end;
End.
Не нашли ответ?
Похожие вопросы