4.а) Корабль,
4.б) Безударный гласный,
4.в) S=v•t
4.г) Алёша Попович и Тугарин змей.
5) плохо видно
var a, b, s, p: real;
begin
write(‘Чему равны стороны прямоугольника: ‘);
readln(a,b);
p:=2*(a+b);
s:=a*b;
writeln(‘Периметр прямоугольника: ‘, p);
write(‘Площадь прямоугольника: ‘, s)
end.
Результат работы:
Чему равны стороны прямоугольника: 2 5
Периметр прямоугольника: 14
Площадь прямоугольника: 10
100_2 = 4
100_3 = 9
100_4 = 16
100_5 = 25
100_6 = 36
100_7 = 49
100_8 = 64
100_9 = 81
100_10 = 100
100_11 = 121
100_12 = 144
100_13 = 169
100_14 = 196
100_15 = 225
100_16 = 256
100_17 = 289
100_18 = 324
100_19 = 361
100_20 = 400
100_21 = 441
100_22 = 484
100_23 = 529
100_24 = 576
100_25 = 625
100_26 = 676
100_27 = 729
100_28 = 784
100_29 = 841
100_30 = 900
100_31 = 961
100_32 = 1024
100_33 = 1089
100_34 = 1156
100_35 = 1225
100_36 = 1296
1)
var
a,b,c,d,i:real;
begin
write('Введите числа a,b,c,d по порядку: ');
readln(a,b,c,d);
i:=(a*b/c)+d;
writeln('Ответ: ',i);
readln;
end.
<span>
2)
var
a,b,i:real;
begin
write('Введите числа a,b по порядку: ');
readln(a,b);
i:=(sqrt(a*b))/(a-b)+(abs(a*b))/25.4;
writeln('Ответ: ',i);
readln;
<span>end.
</span>
3)
var
y,x,i:real;
begin
write('Введите значения x,y по порядку: ');
readln(x,y);
i:=1+(((sqrt(x))+cos(y-2))/((x*x*x*x)/2)+sin(y)*sin(y));
write('Ответ: ',i);
readln;
<span>end.</span></span>
Диск называется: С......... ......