Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ:
вывести все нечётные от 1 до n?
объяснение:
программа на паскале:
program xxx; var a, b: real; begin writeln('введите количество миль'); readln(a); b: = a*1.6; writeln('кол-во киллометров - ',b)end.
program p_1
var
a: string
begin
writeln ('vvedite nazvanie rek');
read (a);
if (a='волга,днепро,нёман,енисей')then
writeln ('в беларуси протекают только днепро,нёман');
end.
Популярные вопросы