gfhjkmgfhjkm20
У меня стоит PascalABC.NET в нём точно работает. Разместите, пожалуйста, скриншот, чтобы я увидел как выглядит программа у вас или напишите на какую строку ссылается при ошибке.
alinadovna
Вы молодец, это просто я неправильно набрала, спасибо большое Вам за грамотный ответ, вышло в командной строке 826
gfhjkmgfhjkm20
Пожалуйста, рад что у вас всё получилось. ) Ответы у нас совпадают.
Answers & Comments
Ответ:
Смотри картинку
Объяснение:
program primer1;
var x,y,s:integer;
begin
y:=1;
x:=20;
s:=0;
while y<15 do
begin
s:=s+x;
x:=x+6;
y:=y+1
end;
writeln(s)
end.
y<15 можно заменить на y<=14
; перед end можно не ставить