Школьниқ
18.02.2020 14:09

Pascal ( 34 ) дана последовательность из n чисел. написать программу, которая определяет, сколько в этой последовательности чисел, кратных 7 на картинке решение через "while" надо переделать программу чтобы она была через "repeat" и другую через "for" (должно получиться 2 программы) : )

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
OOAAAOO
29.05.2020 15:18

Программа с while

program raf105;

var a:integer;

begin

while a<>15 do

begin

 a:=a+1;

 writeln(a);

end

end.

Программа с repeat

program raf105;

var a:integer;

begin

repeat

 a:=a+1;

 writeln(a);

until a=15;

end.

Написано на языке PascalABC.NET

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота