Уit специалиста отключили электричество. он работает с материнской платой при 10 свечах . все кроме одной потухли. сколько свечей осталось у специалиста пока он ремонтировал материнскую плату?
175
461
Ответы на вопрос:
//1 var a, b, i: integer; begin write('введите a и b: '); readln(a, b); for i : = a to b do if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i); end. //2 var a, b, i, k: integer; begin write('введите a и b: '); readln(a, b); for i : = a to b do if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 < > 99)) then begin writeln(i); k : = k + 1; end; if k = 0 then writeln('таких чисел нет.'); end. //3 var sum, i, n: integer; begin write('введите количество предметов: '); readln(n); for i : = 1 to n do begin readln(n); sum : = sum + n; end; writeln('общая масса = ', sum); end. //3 с другим циклом var sum, n: integer; begin writeln('введите 0 для завершения ввода.'); repeat readln(n); sum : = sum + n; until n = 0; writeln('общая масса = ', sum); end.
Популярно: Информатика
-
ВикторияЛинкольн23.10.2021 12:13
-
sofialesiuk19.10.2020 09:39
-
DellXT17.03.2021 15:47
-
ролимов19.06.2021 02:59
-
Tuchka08724.05.2022 16:30
-
СОНИЧКААА04116.02.2023 12:26
-
miksboy21.10.2020 06:15
-
gurova0713.02.2020 14:11
-
dfgdfh202.02.2020 05:48
-
WERTO12421.10.2020 13:04