Program PR1;
uses crt;
var skv,skr:real;
a,r:integer;
Begin
clrscr;
writeln('Введите сторону квадрата');
readln(a);
writeln('Введите радиус круга');
readln(r);
skv:=sqr(a);
skr:=pi*sqr(r);
if skv>skr then writeln('Площадь квадрата >')
else writeln('Площадь круга>');
end.
Очевидно, что букву "А" с буквой "Б" мы перепутать не можем, так как А состоит только из нулей, а Б только из единиц.
Буква "В" состоит из нулей и единиц, так что, казалось бы, ее можно декодировать неоднозначно, НО. Попробуем это сделать. Предположим, что мы перепутали первый 0 и думаем, что это А. Остаётся число 10. Которое уже никак не декодировать иначе.
<span>Первая:
</span>
var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.
<span>Вторая:
vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.
Третья:
varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.</span>
<span> x=154 в начале
a:=x div 100; 154 div 100 = 1 (деление нацело), a = 1
b:=x mod 100; 154 mod 100 = 54 (остаток от деления нацело), b = 54
c:=x mod 10; 154 mod 10 = 4, c=4
s:=a+b+c; 1+54+4 = 59, s=59.
Ответ: 59 </span>