Var n:string;
begin
readln(n);
writeln('Число сотен: ',n[4]);
writeln('Число тысяч: ',n[3]);
<span>end.</span>
Var N,K:integer;
begin
write('Введите значение количество школьников N=');
readln(N);
write('Введите значение количество персиков K=');
readln(K);
writeln('Каждому школьнику достанется по ',K div N,' шт');
writeln('в корзине останется ',K mod N,' шт');
<span>end.</span>
На какое устройство
в какую папку
кому
какой раздел сайта
По сути это 5 факториал. тоесть ответ должен быть 120.
Var x1,x2,y,p:integer;
begin
write('Введите четырехзначное число: ');
readln(y);
x1:=y div 1000;
x2:=y mod 10;
p:=x1*x2;
writeln('Произведение крайних цифр: ',p)
<span>end.</span>