program xxx; var a, b: real; begin writeln('введите количество миль'); readln(a); b: = a*1.6; writeln('кол-во киллометров - ',b)end.
Ответ дал: Гость
program pr;
var i: integer;
mas: array[1..7]of integer;
begin
for i: =1 to 7 do
begin
writeln ('введите температуру ', i ,' сентября');
readln (mas[i]);
end;
for i: =1 to 7 do writeln (i, ' сентября температура была ' mas[i]);
readln;
end.
Ответ дал: Гость
Var m: array[1..15] of real; i: integer; n: real; begin randomize; for i: =1 to 15 do begin m : =random(20)-20; if( m< 0) then begin m: =sqr(m); end;
Ответ дал: Гость
ха-ха-ха)) учебник по информатике за 10
там все
программа №4
program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.
потхоньку буду дополнять, не так все быстро))
№5
program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Популярные вопросы