Var a: integer;
<span>begin </span>
readln (a);
writeln (sqr((a mod 1000) div 100));<span>
end.</span>
var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.
Число игр определяется как число сочетаний из 6 по 2.
Формула: C(n,k) = n! / [(n-k)!*k!]
C(n,k) = 6! / [(6-2)!*2! = 6! / [4!*2!] = 5*6 / (1*2) = 15
Адрес не меняется при абсолютной адресации, для этого перед номером строки или буквой столбца ставят знак $.
Правильного ответа нет, т.к. ответы 13B и D некорректны, ссылка F17 относительная (будет изменяться и номер строки и буква столбца), в ответах $C30 и <span>$A15 абсолютные столбцы, а не строки, то есть строки будут меняться.
Верного ответа нет.</span>
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.