Cоставте программу которая вычесляет произведение 10 произвольных целых двухзначных чисел (Цикл с предусловием ,Pascal)
Ответы:
08-04-2014 12:15
vara: array[1..10] of integer;i,s:integer;beginfor i:=1 to 10 do read(a[i]);i:=1;s:=1;while i<=10 do begins:=s*a[i];inc(i);end;writeln(s);end.
08-04-2014 20:03
var x,y,z:longint;beginz:=10;y:=1while z>0beginz:=z-1;read(x);y:=x*y;end;write(y);end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Cоставте программу которая вычесляет произведение 10 произвольных целых двухзначных чисел (Цикл с предусловием ,Pascal)» от пользователя Юлиана Романенко в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!