Question

50 БАЛЛОВ. Написать 2 программы в паскале

Answer 1

Задание 1:

• var x,y: integer;
• begin
•    readln(x);
•    if x < 0 then y := -x  
•    else y := sqr(x);
•    writeln(y);
• end.

Задание 2:

Включая 0:

• var i, n: integer;
• begin
•    repeat
•        readln(i);
•        if i.IsOdd then n += 1;
•    until i = 0;
•    writeln(n);
• end.

Не включая 0:

• var i, n: integer;
• begin
•    repeat
•        readln(i);
•        if (i.IsOdd) and (i<>0) then n += 1;
•    until i = 0;
•    writeln(n);
• end.