Паскаль.найдите 10 первых естественных чисел заканчивающихся на 7

Program znanija3;
var i, number:integer;
begin
   number:=0;
   while i lt;gt; 10 do begin
     Inc(number);
     if (number mod 10) = 7 then begin
       writeln(number);
       Inc(i);
     end;
   end;
end.

P.S. Inc(number) = number:= number+1

Тамара Кощевская 2019-04-17 04:15:34

number:=number + 1

Мишин-Жоголева Вероника 2019-04-17 04:18:25

а number как поменять, ибо не понимаю что это

Милена 2019-04-17 04:27:46

number это переменная

Елпидифоров Олежка 2019-04-17 04:37:45

её не надобно сменять

Никита Варчев 2019-04-17 04:45:58

спасибо, сообразила

Адикин Егор 2019-04-17 04:49:06

но все равно что такое inc? хочется его заменить понятнее

Ника Соломанюк 2019-04-17 04:58:27

я же написал number:=number+1

Любовь Гайдукевич 2019-04-17 05:05:07

Inc(i); а здесь тогда как?

Саламаев Руслан 2019-04-17 05:09:43

I:=I+1

Ульяна Полковникова 2019-04-17 05:17:20

i:=i+1

О проекте

Паскаль.найдите 10 первых естественных чисел заканчивающихся на 7

Добро пожаловать!