Предмет: Информатика, автор: kireevainboxr

найдите произведение 5 целых чисел паскаль

Ответы

Автор ответа: zabelintollyati

0

var a, p, t: longint;
begin
p:=1;
for t: 1 to 5 do
begin
readln (a);
p:=p*a;
end;
writeln (p);
end.

Предыдущий вопрос

Следующий вопрос

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

Предмет: Математика, автор: Sonrozalina

дам 10 бал помогите

7 лет назад

Предмет: Информатика, автор: BellaBrotsman

Помогите пожалуйста

7 лет назад

Предмет: Биология, автор: liloslana36

ПОМОГИТЕ ПОЖАЛУЙСТА

Используя полученные знания о функциях кожи человека объясните: А)почему у слепых людей хорошо развита кожная чувствительность? (1балл).
В) почему пьяный человек на морозе замерзнет быстрее, чем трезвый? (1балл).
С)почему у футболистов при длительной игре температура тела остается постоянной, хотя теоретические расчеты показали, что за 1 час активной игры в футбол температура тела спортсмена могла бы повыситься на 11,5 градусов? (1балл).

7 лет назад

Предмет: Информатика, автор: Dezor

Язык С++ Прога Dev++
Вычислить y=a*min(x,y,z)-b,где x,y,z,a,b-вводятся,причем a,b должны быть кратны 5,иначе выдать соответствующее сообщение
Вот как я написал
#include<iostream.h>
#include<conio.h>
#include<math.h>
int main()
{
int y,x,z,b,a;
cin>>x>>endl;
cin>>y>>endl;
cin>>z>>endl;
cin>>b>>endl;
cin>>a>>endl;
if ((a%5==0)&&(b%5==0))
if ((x<y)&&(y<z))
y=a*x-b cout<<y<<endl;
if ((y<x)&&(y<z))
y=a*y-b cout<<y<<endl;
if ((z<x)&&(x<q))
y=a*z-b cout<<y<<endl;
else cout<<"a,b ne kratnu 5";
getch();
return 0;
}

10 лет назад

Предмет: Химия, автор: Селя2001

Найти массовой доли (W)
Al2 S2

10 лет назад