uses crt;
var x:integer;
begin
writeln('Введи сколько времени сегодня играл Пудж'); readln(x);
if x>8 then writeln('Пудж здоров')
else writeln('Болен');
end.
<em>Это ветвящийся алгоритм,если больше 8 значит здоров,обратное значение- болен.</em>
B⇒C (2);
C⇒D (2);
D⇒A (1);
A⇒E (4);
2+2+1+4=9;
Ответ: (3).
Ответ:
Введи логин и пароль администратора.
Повышения прав требует
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>
1. Сначала надо перевести всё в секунды: N*60+M = время в секундах
2. Теперь найдём количество молний. Для этого всё время надо разделить на время создания одной молнии: (N*60+M)/X = искомое количество молний.