1) var a,b: integer ;
begin
readln(a);
b:=(a mod 10)+(a div 10);
if ((b mod 7=0) and ((a div 10) mod 2 =0)) then writeln ('верно') else writeln ('не верно')
end.
2)var a,b,i: integer;
begin
readln(a);
for i:=1 to 3 do
if a mod 10 > 3 then begin b:=b+1; a:=a div 10; end;
if b=3 then writeln ('верно') else writeln ('не верно')
end.
3)var a,b,c,d,i: integer;
begin
readln (a);
b:= b+a mod 10;
d:= a div 10000;
b12:=b+d mod 10;
a:=a div 10;
for i:=1 to 3 do begin c:=c+a mod 10; a:=a div 10 end;
if c mod b =0 then writeln ('верно') else writeln ('не верно') ;
end.
program CS;
var S,C:real;
var r:integer;
Const pi = 3.14;
begin
writeln('Введите радиус');
Readln(r);
C:= 2*pi*r;
S:= pi*sqr(r);
Writeln('Длина окружности = ', C:5:2);
Writeln('Площадь круга = ', S:5:2);
Readln();
end.
Объяснение:
Указываем переменные и константу pi. Так как радиусом указывается целое число, то присваиваем целочисленный тип (integer).
Площадь же и длина могут выходить за рамки целых чисел, поэтому присваиваем им вещественный тип (real).
writeln('Введите радиус'); - Выводит на экран надпись в скобках.
Readln(r); - функция для ввода радиуса
C:= 2*pi*r; - присваиваем значение для С (длина окружности)
S:= pi*sqr(r); - присваиваем значение для S (площадь круга)
Writeln('Длина окружности = ', C:5:2); - вывод на экран длины окружности ( двоеточие нужно для округления. После первого двоеточия указывается отступ от крайнего символа в данной строке, а после второго количество знаков после запятой).
Writeln('Площадь круга = ', S:5:2); - вывод на экран площади круга.
Readln(); - требуется для того, чтобы программа сразу не закрывалась. (В чистом PascalABC вроде бы не требуется, а вот в DELPHI точно. Но лучше оставить, если спросят, что это, то ты знаешь что ответить)