1. Информатика
  2. Составить прогу в паскале

Составить прогу в паскале по ниже. найти все числа кратные 3

Алика666 Алика666    2   26.07.2019 11:20    0

Ответы
ifanati2008 ifanati2008  30.08.2020 23:21
Var
  i: integer;

begin
  for i := 100 to 999 do
    if i mod 3 = 0 then writeln(i);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Даниил20061605 Даниил20061605  26.03.2020 20:59
Где находятся контролеры устройств ввода-вывода?...
princesa0409 princesa0409  26.03.2020 20:59
Напишите металингвические формулы которые соответствуют синтаксической диаграмме(рис4.2)...
Celtt Celtt  18.09.2019 03:20
Реализуйте простой шифратор чисел. на вход подается число m, вывести результат шифрации числом k (k = 0xdeadbeef). сдедайте k константой программы. удостоверьтесь,...
HackFox HackFox  18.09.2019 03:20
Реализовать функцию is_prime, которая возвращает true, если входное число простое (найдите простые числа и проверка на простоту числа ). продемонстрируйте работу функции...
Gagoro Gagoro  18.09.2019 03:20
Написать программу на языке pascalabc, которая умеет выполнять арифметические действия с 5 разными числами и выводит промежуточные и итоговый результаты. пример работы...
JANAOOP29 JANAOOP29  18.03.2019 01:40
Program pr1; uses crt; var fl1,fl2: text; i,n,v,a,b: integer; begin clrscr; assign(fl1, input.txt ); assign(fl2, output.txt ); reset(fl1); readln(fl1,n); v: =0; for...
ЖақсыбаеваГүлзат ЖақсыбаеваГүлзат  18.03.2019 01:30
Произвести действия над числами в различных системах счисления х,выполнить перевод из одной системы счисления в другую 55b(16)-226(8): 110010(2)+138(10)*10111(2) результат...
annakota2 annakota2  18.03.2019 01:10
Составить программу нахождения суммы квадратов чилел от 1 до 100...
Рената515 Рената515  18.03.2019 01:10
Расставить по возрастанию 1tb 4000р 32gb 1000р 700mb 14р по стоимости за 1байт...
Leerok Leerok  18.03.2019 01:10
Алгоритм для івана царевича як йому знищити...

Популярные вопросы