Program Turbo;
uses Crt;
var
a,b,r:real;
begin
Write('Введите a и b через пробел: ');
Readln(a,b);
r:=a*b;
Writeln('Произведение равно ',r);
ReadKey
end.
1.
1) A + B (складываем)
2) A+B/2 (находим полусумму)
2.
1)A-C ( вычитаем)
2) найти модуль A-C
3.
1)B*C ( умножаем)
2) B*C возводим в квадрат
Ответ:
var a,b:Integer;
begin
Write('Введите первое число ');
ReadLn(a);
Write('Введите второе число ');
ReadLn(b);
if a-b>0 then Write('БОЛЬШЕ');
if a-b<0 then Write('Меньше')
end.
<span>"Панель управления", далее "Администрирование", далее нажимаем на "Управление компьютером", в списке можно выбрать "управление дисками"
там можно выбрать букву диска</span>
Program aspfoj;
var i, a:integer;
begin
a:=1;
for i:=1 to 10 do begin
writeln (a*a);
a:=i+1; end;
end.