Регистрация
IamPrincess5
06.11.2022 06:56
Информатика
Есть ответ 👍

На прошлой неделе лена получила в школе следующие оценки понедельник: 533, вторник: 34, среда: 444, четверг: 4554, пятница: 5455 мама отпускает лену погулять с машей на два часа в день,если в дневнике у лены нет 3 и есть хотябы одна пятёрка , за каждую пятёрку свыше , время прогулки увеличется на
час . определи сколько часов на прошлой неделе гуляла лена? вырианты ответов : 1) 4часа 2) 5 часов 3) 6часов 4) 7 часов ! это ! !

253
471
Посмотреть ответы 1

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

ZhenyaKan11
ZhenyaKan11
4,5(41 оценок)
Var       i, s, k, n: integer; begin       for i : = 1000 to 9999 do begin               n : = i;               s : = 0;               while n > 0 do begin                       s : = s + (n mod 10) * (n mod 10);                       n : = n div 10;               end;               if (s mod 2 = 0) or (s mod 3 = 0) then begin                       k : = k + 1;                       writeln(i, ' ', s);               end;       end;       writeln(k);       end.

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