Составить программы в pascalabc 1. ваня учится в 5 классе. на уроке они изучали положительные и отрицательные - id131131020210101 от LELEGEG 01.01.2021 14:17

Question

Информатика: Составить программы в pascalabc 1. ваня учится в 5 классе. на уроке они изучали положительные и отрицательные числа. они с папой тренировались - папа задавал число, а ваня отвечал, какое оно. напишите программу, которая запрашивает целое число и определяет, является оно положительным, отрицательным или нулем. 2. в школе № 12 учатся 5 дней в неделю. напишите программу, которая по номеру дня недели выводит расписание уроков на этот день или выводит сообщение, что это выходной. 3. напишите программу,

LELEGEG · Accepted Answer

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

var zarazheno := 1;

var sum := zarazheno;

for var i := 1 to 4 do

begin

zarazheno *= 10;

sum += zarazheno;

WritelnFormat('{2} Новозараженно = {0}, всего заражено = {1}', zarazheno, sum, i);

end;

end.

Вывод

1 Новозараженно = 10, всего заражено = 11

2 Новозараженно = 100, всего заражено = 111

3 Новозараженно = 1000, всего заражено = 1111

4 Новозараженно = 10000, всего заражено = 11111

MOGZ ответил