2. Найти, делится ли введенное число "а" на 3. Если делится

2. Найти, делится ли введенное число "а" на 3. Если делится то вывести на экран "Число делится на 3".Тип переменной найти без помощи других. При составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.

3. Дана программка на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until sgt;100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программку используя цикл While.

4. Вывести на экран массив целых чисел, Состоящий из 15 частей, значение которого из которых сгенерировано случайным образом из диапазона [20,60].

Задать свой вопрос
1 ответ
Program qwe;
Uses crt;
var a:real;
begin
clrscr;
Write('Введите число: ');
Readln(a);
if a mod 3=0 then Writeln('Da') else writeln('Net');
readkey;
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт