Регистрация
megadog
22.06.2022 11:16
Информатика
Есть ответ 👍

Паскаль
Задача 1

Вывести на экран все четные числа от 1 до 20.

Задача 2.

Маше надо решить 100 примеров. Она решила, что в первый день решит - 1 пример, во второй - 2, в третий - 3 и так далее. Сколько дней Маша будет решать примеры?

​

113
268
Посмотреть ответы 3

Ответы на вопрос:

Nadya1111111111111
Nadya1111111111111
4,7(95 оценок)

Задача 1:

var

 m, n: integer;

begin

 writeln('Все четные числа: ');

 repeat

   n := 1;

   m := 20;

 until m >= n;

 while m >= n do

 begin

   if n mod 2 = 0 then write(n, ' ');

   n := n + 1;

 end;

end.

Результат:

Все четные числа:  

2 4 6 8 10 12 14 16 18 20

Задача 2:

var p, sum: integer;

Begin

sum := 0;

p:=1;

while sum<=100 do begin

 sum := sum+p;

 p := p+1;

end;  

writeln ('Все задачи Маша решит за ', p, ' дней');

end.

Результат:

Все задачи Маша решит за 15 дней

Danchik2046
Danchik2046
4,5(75 оценок)

Задача 1

2,4,6,8,10,12,14,16,18,20.

Задача 2

13-14 дней

Объяснение:

qmerry128
qmerry128
4,6(5 оценок)
От генератора тактовой чистоты, разрядности процессора, оперативной памяти

Популярно: Информатика