Program calculator;
Var a,b: real;
Begin
Write('Первое число:');
readln (a);
Write('Второе число:');
readln (b);
Write('Результат: ',a+b);
End.
<span> по-моему, ответ - Г.</span>
<span>128 с - (1024 * 64 / 100) м</span>
<span>x c - 100 м</span>
<span>x = (128 * 100 * 100) / (1024 * 64) = 19.53</span>
Номер 1
const
D: array[1..7] of string = ('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday');
var
day: longint;
begin
writeln('Введите номер дня.');
readln(day);
writeln(D[day]);
end.
A)
var x,y:real;
y:=sqrt(x);
б)
var a,b,c:real;
c:=sqrt(a*a+b*b);
в)
var a,b,c,d,x1,x2:real;
d:=b*b-4*a*c;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
г)
var s1,s2,s3,st:real; k1,k2,k3:integer;
st:=s1*k1+s2*k2+s3*k3;