Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program summa;
var s, a, b, c : word;
begin
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s: =a+b+c;
write(' сумма равна ',s);
readln
end.
1)котят 7
2)рыжих котят 5
3)зелоноглазых котят 3
4)котят рыжих и зеленоглазых 3
5)котят рыжих или зеленоглазых 3
6)рыжих и не зеленоглазых котят 3
7)не рыжих и не зеленоглазых 1
1)
var
i,n: integer;
readln(n);
for i: =1 to n do writeln(i*i);
2)
for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);
3)
var i,n: integer; p: real;
begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.
4)
for i: =1 to n do if (i mod 2=0) then writeln(i);
5)
i,n,k: integer;
k: =0;
for i: =1 to n do if (i mod 15=0) then k: =k+1;
writeln(k);
2^3 = 8 цветов (скорее всего оттенки серого)
Популярные вопросы