Найти сумму цифр в Паскале (используя while или repeat)S=101+103+... +301Состави...

July 2022 1 9 Report

Найти сумму цифр в Паскале (используя while или repeat)
S=101+103+... +301
Составить программу.

Answers & Comments

Burxon21 // PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

1. Современное решение (приводится в качестве контрольного примера, дающего эталон суммы).

begin
Range(101,301,2).Sum.Println
end.

Результат
20301

2. Цикл while

begin
var (i,k,s):=(101,301,0);
while i<=k do begin s+=i; i+=2 end;
s.Println
end.

3. Цикл repeat

begin
var (i,k,s):=(101,301,0);
repeat
s+=i; i+=2
until i>k;
s.Println
end.

Результаты выполнения всех трех программ одинаковы.

1 votes Thanks 1

Answers & Comments

vychislit massu vody kotoraya ponadobitsya dlya reakcii s 39g kaliya

reshite test 2 variant

o chem kratkoe soderzhanie rasskazao chem kratkoe soderzhanie rasskaza apchehov

vashevpechatlenie o rasskaze metel iz povestejbelkina nuzhno dopolnit m

5 zadacha summa treh chisel 1023 a srednee arifmeticheskoe shesti drugih chisel 2

najdite srednee arifmeticheskoe chisel 324 41 2795 469 5575649dfb9315809423cf09cb38fae7cd30 2988

ch najdite srednyuyu skorost avtomobilya na vsem puti1e5bd33e3f54d1151e4bf8abb007413a 45839

napishite sochinenie rasskaz na temu olimpijskih igr v drevnej grecii ot imeni spo

vychislit massu vody kotoraya ponadobitsya dlya reakcii s 39g kaliya raspisat

realno biograficheskij kommentarij k stiho niyu tri palmy

рекомендуемые вопросы

Helpful Links

Helpful Social