1. Вариант современного решения // PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('Число четных цифр равно ', abs(ReadInteger('n=')).ToString.Where(c->c.ToDigit.IsEven).Count) end.
Пример n= 363754345 Число четных цифр равно 3
2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.
program TP70; uses Crt; var n:longint; k,d:byte; begin ClrScr; Write('n= '); Read(n); n:=abs(n); k:=0; while n>0 do begin d:=n mod 10; if d mod 2=0 then Inc(k); n:=n div 10 end; Writeln('Число четных цифр равно ',k); ReadKey; end.
program task1;
var x,y,xq,yq,sum,pro,cha,raz:integer;
begin
write('Введите числа:');
readln(x,y);
xq:=sqr(x);
yq:=sqr(y);
sum:=xq+yq;
raz:=xq-yq;
pro:=xq*yq;
cha:=xq/yq;
write('Сумма=',sum,';Разность=',raz,';Частное=',cha,';Произведение=',pro);
end.
2)
program task2;
var a,r,rr,h,s:real;
begin
write('Введите длину стороны треугольника: ');
readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r::2);
Writeln('Радиус описанной окружности ', rr::2);
Writeln('Высота треугольника ', h::2);
Writeln('Площадь треугольника ', s::2);
end.