Данный код также проверяет и строки
Жили-были клавиатура , манитор , память и процесор . Жили они дружно пока невозник спор , кто из них главнее .Каждый из них говорил что он важнее других. Клавиатура говорила:
-Если бы не было меня , то человек бы не смог печатать слова и предложения!
Но манитор возражал:
-Я важнее вас! Ведь если бы меня не было то человек бы не смог увидеть экрана!
Но память твердила всем:
-Я важнее вас всех , ведь если бы меня не было , то человек бы не мог сохранять картинки , разную музыку и разные видео!
А процессор говорил :
-Я мозг компьютера! И я важнее всех потому что если бы меня не было то компьютер бы никогда не включался! И человек бы не смог просматривать диски и флешки!
Но тогда компьютер сказал им всем:
-Ребята , не ссорьтесь , все вы очень важны, и если бы не вы все , то компьютера бы не было!
Вот на этом спор и закончился , и все начали жить дружно , как раньше!
Var
hh, mm, hp, mp: integer;
begin
readln(hh, mm, hp, mp);
hh := hp * 60 + hh * 60 + mm + mp;
writeln(hh div 60 mod 24, ':', hh mod 60);
end.
Вариант номер 1:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
repeat begin
p:=p+(p/10);
a:=a+1;
end;
until p>=20;
writeln('a=',a);
<span>end.
Вариант номер 2:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
while p<=20 do begin
p:=p+(p/10);
a:=a+1;
end;
writeln('a=',a);
<span>end.</span></span>
Любые могут быть кроме /*