Напишите программу на языке Pascal: Посчитайте кол-во и сумму чисел, кратных 3 в...

December 2021 1 30 Report

Напишите программу на языке Pascal: Посчитайте кол-во и сумму чисел, кратных 3 в диапазоне от -30 до 30.

Answers & Comments

NotOfNoumber Var
i,sum,col:integer;
begin
for i:=-30 to 30 do
begin
if i mod 3 = 0
   then
   begin
inc(col);
inc(sum,i);
   end;
  end;
write(sum,' ',col);
end.

1 votes Thanks 1

pishite maksimalno podrobnoe reshenie kto pravilno reshit i podrobno tomu luchshe0a25fa1ba943203698f8536ba03f1483 90945

Answer

adimas1 August 2022 | 0 Ответы

pishite maksimalno podrobnoe reshenie kto pravilno reshit i podrobno tomu luchshe

Answer

adimas1 July 2022 | 0 Ответы

najdite tu pervoobraznuyu dlya zadannoj funkcii yfx grafik kotoroj kasaetsya za

Answer

adimas1 July 2022 | 0 Ответы

3)...

Answer

adimas1 July 2022 | 0 Ответы

sformulirujte prichiny agrarnoj reformy v 1950 h nachale 1960 h gg kakie iz nih

Answer

adimas1 June 2022 | 0 Ответы

reshenie podrobnoe nadeyus kartinka sojdet

Answer

adimas1 June 2022 | 0 Ответы

reshite pozhalujsta opisanie v risunkef8ae274aff5ed99c1ea09272e51b4a43 97262

Answer

Answers & Comments

pishite maksimalno podrobnoe reshenie kto pravilno reshit i podrobno tomu luchshe0a25fa1ba943203698f8536ba03f1483 90945

abcda1b1c1d1 pryamougolnyj parallelepiped ad18m dc110m db12 m najti addcdd1

telo broshennoe s zemli vertikalno vverh pobyvalo na vysote 45 m dvazhdy s inte

kak byla organizovana i mobilizovana vlast na borbu s fashizmomvo vremya veliko

pishite maksimalno podrobnoe reshenie kto pravilno reshit i podrobno tomu luchshe

najdite tu pervoobraznuyu dlya zadannoj funkcii yfx grafik kotoroj kasaetsya za

3)...

sformulirujte prichiny agrarnoj reformy v 1950 h nachale 1960 h gg kakie iz nih

reshenie podrobnoe nadeyus kartinka sojdet

reshite pozhalujsta opisanie v risunkef8ae274aff5ed99c1ea09272e51b4a43 97262

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

Helpful Links

Helpful Social