Var g1, g2, g3: real;
begin
writeln('Введи три числа: ');
readln(g1, g2, g3);
if not ((g1 = 9.8) or (g2 = 9.8) or (g3 = 9.8)) then Writeln('Нет среди этих чисел ускорения на Земле') else begin
if g1 = 9.8 then Writeln('Первое - ускорение на Земле');
if g2 = 9.8 then Writeln('Второе - ускорение на Земле');
if g3 = 9.8 then Writeln('Третье - ускорение на Земле');
end;
<span>end.</span>
program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)
5 байт=40 бит
8 килобайт=8192 байт
1 мегабайт=131072 байт
88 бит=11 байт
<span>5120 терабайт =5242880 гигабайт</span>