Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на языке pascal, успехов в учебе.
program pr;
var n,m,z,k,i,vm: integer;
begin
readln (n,m,z);
vm: =n*60+m;
i: =1;
while i< =vm do
k: =k+1;
i: =i+z;
end;
writeln (k);
readln;
end.
program p_1
var
a: string
writeln ('vvedite nazvanie rek');
read (a);
if (a='волга,днепро,нёман,енисей')then
writeln ('в беларуси протекают только днепро,нёман');
program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.
не? я не уверен
хвалебный
Популярные вопросы