Составить программку.Вывести на экран 10 первых целых чисел кратных 7pascal.Если верно

Составить программку.
Вывести на экран 10 первых целых чисел кратных 7
pascal.
Если верно дам ещё баллы.

Задать свой вопрос
1 ответ

var a,i:integer;

begin

 for a:=14 to 77 do

   begin

   if (a mod 7=0) then

         write(a,' ');

   end;  

end.

Нина Доброван
можешь ещё посодействовать? гляди задачку в профиле
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт