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 s>100;

writeln ('Количество введенных чисел = ', n) ;

end.

Переписать программу используя цикл While.

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

Question

Информатика

Гали

30 апреля, 11:08

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 s>100;

writeln ('Количество введенных чисел = ', n) ;

end.

Переписать программу используя цикл While.

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

+1

Ответы (1)

Знаете ответ?

Надена · Answer 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.