исправить цикличную программу так , чтобы она находила произведение трёх чисел. Паскаль


исправить цикличную программу так , чтобы она находила произведение трёх чисел. Паскаль

chmochmoshnoe chmochmoshnoe    2   05.12.2020 21:19    5

Ответы
ммаа2 ммаа2  04.01.2021 21:20

program tt;

uses crt;

var

s, x: real;

i: integer;

s:=1;

i:=1;

while i <= 3 do

       begin

       write ('Введите число ');

       read (x);

       s:=s*x;

       i:=i+1;

       end;

write ('сумма чисел равна ', s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика