// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var r1,r2,r3:real;
Write('Введите R1 R2 R3: '); Read(r1,r2,r3);
var g:=1/r1+1/r2+1/r3;
Writeln('R=',1/g:0:5)
end.
<u><em>Тестовое решение:</em></u>Введите R1 R2 R3: 3.5 2.75 4
R=1.11191
(512*1024/(640*480))*2 = 3.4 - Три страницы экрана при палитре из 16-ти цветов
(512*1024/(640*480)) =1.7 - Одна страница экрана при палитре из 256 цветов
В кодировке ASCII каждый символ кодируется одним байтом.
"My mom was born 1980" - 20 символов (пробел - тоже символ)
Поэтому данный текст будет весит 20 байт.
Uses crt;
var
a,b,c:real;
begin
clrscr;
writeln('введите 2 числа через пробел');
readln(a ,b);
c:=a*b;
if (c<0) then begin
c:=c*2;
writeln(c:0:2);
end
else begin
c:=c*1.5;
writeln(c:0:2);
end;
end.