Помогите срочно в паскаль abc.
10-11 класс
|
1. Написать программу нахождения среди чисел от 1 до 100 всех пар чисел, для которых их сумма равна их произведению)
2. Написать программу вычисления куба суммы всех четных чисел от 2 до 100
3. Каждая бактерия делится на две через три минуты. В начальный момент имеется одна бактерия. Написать программу, определяющую, сколько будет бактерий через N минут
1.
uses crt;
const n=100;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
if i+j=i*j then
writeln(i,' ',j);
end.
2.
uses crt;
const n=100;
var i:integer;
begin
for i:=2 to n do
write(power(i,3),' ');
end.
3.
uses crt;
var n:integer;
begin
read(n);
writeln((n div 3)*2);
end.
Другие вопросы из категории
различных комбинаций этого списка. Вывести на экран названия объектов, которые есть во всех множествах одновременно. Определить, каких объектов нет ни в одной множестве. Выполнить дополнительно задачи своего варианта, а именно определить, какие объекты: входящие во вторую и третью множества. Паскаль, заранее спасибо
Читайте также
1. Написать программу нахождения среди чисел от 1 до 100 всех пар чисел, для которых их сумма равна их произведению)
2. Написать программу вычисления куба суммы всех четных чисел от 2 до 100
3. Каждая бактерия делится на две через три минуты. В начальный момент имеется одна бактерия. Написать программу, определяющую, сколько будет бактерий через N минут
Часть 1: 19 и 32, Часть 2: 2
геометрической фигуры(паскаль)
ПОМОГИТЕ СРОЧНО!завтра экзамен