Соствить программу Pascal ABC Задание: Найти сумму чисел от 50 до 100, кратных трём.
5-9 класс
|
var
a:array[1..10]of integer;
i,b:byte;
begin
for i:=1 to 10 do
a[i]:=50 + random(100);
b:=0;
for i:=1 to 10 do begin
if (a[i]mod 3=0) then
a[i]:=a[i]+b;
b:=a[i];
end;
writeln(b);
end.
Другие вопросы из категории
кино. Все они живут в разных городах, поэтому Дорис часто звонит им в Париж, Рим и Чикаго. Известно, что: 1) Джуди живёт не в Париже, а Линда - не в Риме; 2)парижанка не снимается в кино; 3) та, кто живёт в Риме, певица; 4) Линда равнодушна к балету. Где живёт Айрис и какова её профессия?
5.3 Напечатать "столбиком": а) все целые числа от 20 до 35 б) квадраты всех целых чисел от a до 50 ( значение a вводится с клавиатуры;b>=10) в) третьи степени всех целых чисел от a до 50 ( значение a вводится с клавиатуры;a<=50); г) все целые числа от a до b ( значения a и b вводятся с клавиатуры;b>=a).
Напишите пожалуйста программу для Паскаля
Летом Винни-Пух сделал запас мёда на зиму и решил разделить его пополам, чтобы съесть половину до Нового Года, а другую половину-после Нового Года. Весь мёд находится в ведре, которое вмещает 6 литров, у него есть 2 пустые банки : 5-литровая и 1-литровая. Может ли он разделить мёд так, как задумал???
Если не трудно ответ в виде фото)))
Читайте также
15, -20,
25, …
Использовать цикл for и условие в нём.
Задача 2.Найти сумму чисел от 1 до 100, кратных 7. Кратность находим при помощи операции mod
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
через 5
заранее спс
что-то вообще не могу ее решить (((( вроде легкая, училка все-равно говорит неправильно-неправильно.Последний шанс остался(((