Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if (a=b) and (a=c) and (c=b)
then writeln('переменные =')
else
begin
a:=a+10;
b:=b+10;
c:=c+10;
end;
end.

0 0

3 года назад

Рещите пж!! Паскаль Через :real

Mix Tic [182]

Поскольку повтор вопроса, будет повтор ответа)

program p1;
var
n,m,s:real;
i:integer;
a:array[1..7] of real;
begin
write('Write n: '); readln(n);
write('Write m: '); readln(m);
writeln('Enter the weight of things: ');
for i:=1 to 7 do
read(a[i]);

s:=0;
for i:=1 to 6 do
s:=s+a[i];
if s>20
then
begin
s:=(s-20)*n;
writeln('For luggage: ',s:0:2);
end
else
writeln('For luggage: ',s:0:2);

if a[7]>5
then
begin
a[7]:=(a[7]-5)*m;
writeln('For hand luggage: ',a[7]:0:2);
end
else
writeln('For hand luggage: ',a[7]:0:2);
readln
end.

0 0

4 года назад

Сделайте пожалуйста в паскале рисунок созвездия Большое Пес и там надо выделить звезду Сириус

Синдрий

1- это рисунок как получится, а во 2 сама программа :)

0 0

4 года назад

Оплата за аренду конференц-зала вычисляется по следующим правилам каждый из первых четвертых часов аренды стоит 1000 рублей, каж

Сити

Г правильный ответ и всееееее

0 0

4 года назад