Program n1;
var a,b: integer;
begin
writeln('введите кол-во учеников и кол-во девочек: ');
readln(a,b);
writeln('в классе ',a,' учеников');
writeln('Из них ',b,' девочек и ',a-b,' мальчиков');
end.
// PascalABC.NET
<span>// Версия 3.3.5 сборка 1662 (29.04.2018)
</span>
begin
Println('Цифры:', ReadInteger('n-> '). ToString.Reverse.Println.Reverse.JoinIntoString(' '))
end.
<u>Пример:</u>
n-> 451234
432154
Цифры: 4 5 1 2 3 4
Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.
//На Pascal
const N = 40;
var a: array [1..N] of longint;
i,k: longint;
begin
for i := 1 to N do
readln(a[i]);
k := 0;
for i := 1 to N - 1 do
if ((a[i] + a[i + 1]) mod 6 <> 0) and (a[i] * a[i + 1] <1000) then
k:=k+1;
writeln(k);
<span>end.</span>