//
Var x: integer;
Begin
Write('введите x=');
Readln(x);
if x>0 then
Write('положительное')
else
Write('не положительное');
End.
Выучить наизусть 5 Напишите программу, которая определит, каких букв в строке с русским текстом больше: «ч» или «я» 6 Напишите програм...
Комментариев нет:
Отправить комментарий