Помогите решить задачу по информатике! 9 класс

[Карам]

Найти 20 первых натуральных чисел, делящихся нацело на 13 или на 17 и больших 500. Паскаль. Решать нужно непременно через цикл while. Ребенок решил через repeat и until и получил 2.

[Мама Асюши]

Program z;
var x,k:integer;
begin
x:=500;
k:=0;
while k<20 do
beginif (x mod 13=0) or (x mod 17=0) then begin writeln(x); k:=k+1; end;
x:=x+1;
end;
end.

[Карам]

Спасибо! Покажу ребёнку.

[ryjgrf]

Ой, а не подскажите пособие-книгу по этому разделу, прям для чайников. Не понимаем ни я, ни школьница. В инете искала, в учебнике смотрела - хочется пошаговое разжевывание. Спасибо.

[Карам]

Да, и нам бы это тоже очень помогло! А то либо учитель плохо объясняет, либо мой ее не понимает... Когда ребенок посмотрел на решение вышеприведенной задачи, он, конечно, принял это к сведению, но, по его словам, они ничего подобного не проходили. Никаких beginif... Это вообще сложная задача или...? Если что, школа общеобразовательная, без уклона.

[Valentinych]

Да, и нам бы это тоже очень помогло! А то либо учитель плохо объясняет, либо мой ее не понимает... Когда ребенок посмотрел на решение вышеприведенной задачи, он, конечно, принял это к сведению, но, по его словам, они ничего подобного не проходили. Никаких beginif... Это вообще сложная задача или...? Если что, школа общеобразовательная, без уклона.

После begin нажать enter. If на новой строке.
Задача не сложная, "без уклона".

[Карам]

А он говорит, что так делал и программа не работала.

[Valentinych]

Ой, а не подскажите пособие-книгу по этому разделу, прям для чайников. Не понимаем ни я, ни школьница. В инете искала, в учебнике смотрела - хочется пошаговое разжевывание. Спасибо.

Мне кажется сейчас школьники лучше видео воспринимают, чем печатные учебники (плохо это или хорошо, но увы так). И в сети много видео достаточно качественных с лекциями и разбором задач. Ну вот например, один из популярных каналов Информатик БУ: https://www.youtube.com/channel/UCmU...IMhfqBfyHYXYuA
Там конечно специализация на ЕГЭ, но и для классов младше 11 можно найти много полезного по информатике.