Question

Решить задачи на языке программирования pascal (все)

Answer 1

Решение первых двух задач
Сейчас напишу остальные

378771bddf93d039b8f3b7d515eec38c.pas

6a26aaa2a536039aacdc8f45d1624336.pas

df68886b32f1bd22191ac2fafc6361ae.pas

6b87f6c971200573203735735c16e67a.pas

d554a79760e54ae8e334ab8e19cf3b04.pas

Answer 2

1)
var a:double;
i: integer;
sum: double;
begin
sum:=0;
for i:= 1 To 5 Do
begin
read(a);
sum:=sum+a;
end;
write('Среднее значение = ' + sum/5);
end.

2)
var x: double;
a:double;
diff: double;
begin
writeln('Сколько рублей стоит диск?');
read(x);
writeln('Сколько рублей у тебя в кармане?');
read(a);
if (a > x) then begin
writeln('Да');
end
else
begin
diff:= x - a;
writeln('Нет, чтобы купить диск, нужно добавить еще ' + diff + ' рублей');
end;
end.

3)
var c: double;
f:double;
i:integer;
begin
for i:=15 To 30 Do begin
c:=i;
f:=1.8*c+32;
writeln(c + '°C = ' + f +'°F');
end; 
end.

4) 
var b: integer;
n:double;
i:integer;
begin
writeln('Введите количество минут:');
read(n);
i:= 0;
b:=1;
while (i < n) do begin
b:= b * 2;
i:=i +1;
end;
writeln('Через ' + n +' минут будет ' + b + ' бактерий');
end.