Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
a: array[1..5]of integer;
i: integer;
begin
for i: =1 to 5 do read(a[i]);
for i: =1 to 5 do write(a[i],' ');
writeln;
for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);
end.
d1,d2,d3,d4: string;
randomize;
readln(d1);
readln(d2);
readln(d3);
readln(d4);
case random(4) of
0: writeln(d1,d2,d3);
1: writeln(d1,d2,d4);
2: writeln(d2,d3,d4);
3: writeln(d1,d3,d4);
end;
койка, стройка, трест, рой, репа, тройка, река, серп,строка.
(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
s: =0;
writeln ('введите число');
while a< > 0 do
a: = a mod 10
s: =s+a;
if s mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
Популярные вопросы