Составить программу для нахождения количества и суммы всех чисел, оканчивающихся на 4 на промежутке от 1 до 100. в паскале. подробно , чтобы было понятно.
243
446
Ответы на вопрос:
Program aaa; var i,z,sum: integer; begin sum: =0; //сумма чисел z: =0; //счётчик for i: =1 to 100 do if(i mod 10 = 4) then begin //проверка последней цифры, если 4,то прибавляем к счётчику единицу и к сумме число z: =z+1; sum: =sum+i; end; writeln(z,' ',sum); //выводим ответ end.
Var i,n,s: integer; begin readln(n); s: =1; for i: =1 to n do s: =s*i; writeln(s); end.
Популярно: Информатика
-
Olenadob02.03.2020 01:53
-
ШахлаАлыева200771708.10.2021 20:52
-
Юли00907.08.2022 11:29
-
amina203140612.12.2020 01:06
-
saleev1630.06.2023 00:00
-
klymukmaks19.01.2021 08:06
-
alinka39326.07.2022 21:18
-
ivanrumyantsev103.01.2022 20:47
-
Сабина1409040292992916.01.2020 09:45
-
mirapax1997ozb3lk28.02.2022 21:00