Информатика

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

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

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

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

0,5кб=512байт=4096бит

4096/128=32

в 32 раза

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

1   - z=21, x1=21, x2= 13

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

uses crt; var a,b,c: integer; beginclrscr; readln(a,b,c); if (a> b) and (a> c) then writeln('max chislo = ',a); if (b> a) and (b> c) then writeln('max chislo = ',b); if (c> b) and (c> a) then writeln('max chislo = ',c); readln; end.

Ответ
Ответ разместил: 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.

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

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