var
a, b: real;
begin
write('Введите a,b: ');
readln(a, b);
writeln('Гипотенуза = ', sqrt(sqr(a) + sqr(b)):0:2);
end.
Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.
var
i, max:integer;
c: array[1..10] of integer;
begin
for i:=1 to 10 do
read(c[i]);
max:=c[1];
for i:=2 to 10 do
if (c[i]>max) then max:=c[i];
write(max);
end.
1) 168+1011002(есть надо решить, то будет 1011070)
2) 101102 + 348 + 15 = 101465
3) 5748 + 4678 = 10426 (в десятеричной)
10426(10-ая система с.) = 024272(8-ая система с.)
4) 2768 - 7328 = -4560(в десятичной)
-4560(10-ая система с.) = -10720(8-ая система с.)
5) Х = 78 - 10102-358
Х = -10382
-10382(10-ая система с.) = 024216(8-ая система счисления)
1.
Нам нужно, чтобы высказывание давало ложь. Поступим проще. Уберём НЕ перед выражением, то выражение будет давать истину:
<span>(Первая буква согласная) И (Последняя буква гласная)
</span>Первая буква согласная и последняя буква гласная только у имени Дарья.
2. Пошагово
a:=1
<span>b:=4 </span>
<span>a:=2*a+3*b = 2*1+3*4 = 14</span>
<span>b:=a/2*b = 14/2*4 = 28
</span>
Ответ 28