Информатика

Вопрос/Задача:

6. написать программу тремя способами ( с циклами «до», «пока» и с параметром ). : ввести n чисел. найти сумму четных из них. проанализируйте решения. какое проще и почему?

Ответы на вопрос

Ответ
Ответ разместил: Гость

почитай тут 

Ответ
Ответ разместил: Гость

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

Ответ
Ответ разместил: Гость

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

Ответ
Ответ разместил: Sobennikovoleg

uses crt;

var s,n,ch: integer;

begin

for i: =1 to n do

begin

if ch mod 2 = 0 then

s: =s+ch;

end;

end.

 

uses crt;

var s,n,ch,i: integer;

begin i: =1;

while i < =n do

begin

if ch mod 2 = 0 then

s: =s+ch; inc(i);

end;

end.

 

 

uses crt; var s,n,ch,i: integer; begin i: =1; n: =5; repeatbeginreadln(ch); if ch mod 2 = 0 thens: =s+ch; inc(i); end; until i> =n;

writeln(s); end.

Похожие вопросы

Вопросов на сайте: