Program chislo;var ch,pr,so,s:integer;beginpr:=1;writeln('Введите шестизначное число');readln(ch);so:=ch mod 10000;pr:=so div 1000;pr:=pr*(so mod 10);pr:=pr*((so mod 100)div 10);pr:=pr*((so mod 1000)div 100);writeln(Произведение первых 4 чисел=',pr)end.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
Ответы: 32 (убираем 1-ю и 3-ю цифры) и 13 (убираем 1-ю и 4-ю цифры).
Var
a,b:integer;
Begin
readln(a,b);
if a mod 2= 0 then writeln('есть чётное')
else if b mod 2=0 then writeln('есть чётное')
else writeln('Нет чётных);
<span>End.</span>