4 года назад

Используя жёсткий цикл решите задачу. Выведите на экран все числа от -30 до 50 которые делятся на 3 и на 4.

1 ответ:

Fogista4 года назад

0 0

Не понятно про "Жесткий" цикл. Но как вариант:

var i:integer;
begin
for i:=-30 to 50 do
if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.

На выходе:
-24
-12
12
24
36
48

Читайте также

4,42 Кбайт сколько бит

Svetlana Mel

1 Кб = 1024 б
1 б = 8 бит
4,42 * 1024 * 8 = 36 208,64 бит

0 0

3 года назад

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. Программа получа

Alex1969

Program A;
var a,b,c,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
begin
write('введите число:');
readln(b);
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3

program B;
var a,b,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
b:=random(300)+1;
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3

0 0

1 год назад

ПОМОГИТЕ КТО ЧТО МОЖЕТ, ЗАЧЕТНАЯ РАБОТА, ПОЖАЛУЙСТА

FeelBrain [7]

Задача 1
вероятность= количество событий. кол-во нужный событий
вероятность для карася 60/100=0,6
для пескаря 10/100=0,1
для окуня 30/100=0,3

Задача №3
дели 135 на 134 с остатком
Ответ 11

0 0

4 года назад

(число<75) и не (число чётное)?

mistershadow

73,71,69,67,65,63,61,59...

0 0

3 года назад

СРОЧНО!Пожалуйста, помогите! У меня практическая!!!

Сашкиндом [2]

2 шаг - 9 1 5 7
3 шаг - 9 7 5 1

0 0

4 года назад