Program kontr;
var a:integer;
begin
writeln ('Vvedite celoe chislo');
readln(a);
if (a mod 3 = 0) then writeln ('Da')
else writeln ('Net');
end.
Привет дорогой друг!
Мое лето прошло замечательно. Я весело отдыхал на море, загорал, собирал ракушки и гулял с друзьями. В конце лета меня отправили на дачу. Там я помогал бабушке по хозяйству, а также ходил на речку. Полагаю, что это лето было самым лучшим в моей жизни!
А как ты отдохнул?
Нет,он не кодировал!
Напишу на псевдокоде, потому что не указали язык программирования
ввод числа X
ввод числа Y
ЕСЛИ X>Y ТО
Y=X-Y
X=X*X
ИНАЧЕ
X=Y-X
Y=Y*Y
Вывод X,Y
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
Например: стол 1 достать тетрадь 2 открыть тетрадь 3 взять карандаш 4 нарисовать ножки стола 5 верхушку стола (могут быть ошибки в словах)