Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
этооооооо копиляция.
программа на языке 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.
var a,b: integer;
is7: boolean;
readln(a);
b: =0;
is7: =false;
while a < > 0 do
b: =b+a mod 10;
if a mod 10 = 7 then
is7: =true;
a: =a div 10;
wrtieln('сумма цифр: ', b);
write('цифра 7 ');
if is7 then writeln('есть') else writeln('нет');
Популярные вопросы