С ИНФОЙ 1)Напишите почтовый адрес пользователя на компьютере с именем perm.ru, если его учетная запись на нём v-pavlov
2)Один из самых массовых советских танков, имевший более десятка модификаций, построенный на базе английского танка. В армии Финляндии использовался до 60х годов 20го века. НАЗОВИТЕ МОДЕЛЬ ТАНКА, ГОД ВЫПУСКА И ГДЕ ИСПОЛЬЗОВАЛСЯ
var
a, s: real; //a - вводимое с клавиатуры число, s - сумма чисел
begin
a:= 1; //Присваиваем начальное значение, чтобы цикл выполнился
s:= 0;
while a <> 0 do
begin
writeln('Введите положительное число');
readln(a);
if a < 0 then
begin
writeln('Введено не положительное число. Повторите ввод заново');
continue; {Если а - не положительное число, вводим число заново}
end;
s:= s + a;
end;
writeln('Сумма: ', s); //Выводим сумму
end.