Регистрация
Runalbert
27.10.2022 21:41
Информатика
Есть ответ 👍

ЗАДАЧА КЛАССА ДЛЯ ВОСЬМОГО

180
209
Посмотреть ответы 2

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

prohov14
prohov14
4,7(22 оценок)

1)var a,b,c: word;

begin

   readln(a);

   readln(b);

   readln(c);

   while a<=b do begin

       write(a,' ');

       a := a+c;

   end;

   writeln;

end.

2)

2

3

4

5

6

7

8

Var i:integer;

   p:longint;

Begin

   p:=1;

   For i:=8 to 15 do

    p:=p*i;

   writeln('Произведение: ',p);

End.

нононононон
нононононон
4,7(36 оценок)

program sumproizdrob; uses crt; var n: integer; c,s,pr,dr: real; begin clrscr; write('input numbers: '); n: =1; s: =0; pr: =1; dr: =0; repeat readln(c); dr: =frac(c); writeln('drobnaya chast: ',dr: 4: 4); n: =n+1; if (c> 9) and (c< 51) then s: =s+c; if (c< 22) then pr: =c*pr; until (c=1000); writeln; writeln('summa =',s: 4: 4); writeln('proizved=',pr: 4: 4); readkey; end.

Популярно: Информатика