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

Информатика

Дигна

12 октября, 00:12

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.