Var a, s, m: integer;
begin
while m < 5 do begin
read(a);
s := s + a;
if (a div 100 > 0) and (a div 100 < 10) then m := 5;
end;
writeln(s-a);
end.
телефон, почта, в соцыальных сетях можно передовать информацыю....через всё
<span>program HelloWorld;</span>
var S: real;
begin
writeln('Введите значение температуры:');
readln(S);
<span>
if (s>36.6) then </span>
<span> writeln('</span>Не здоров!')
else
writeln('здоров!')
end.
//PascalABC.NET 3.2 сборка 1318
Const
n=5;
Var
ar:array[1..n] of integer;
CouOfDel,i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=2 to n do
if ar[i-1]>ar[i] then inc(CouOfDel);
if CouOfDel>1 then writeln('Нет') else writeln('Да');
end.
Пример ввода:
1
2
2
1
3
Пример вывода:
Да
1. Маркеры
2. Нумерация
3. Многоуровневый список