1. С:\учёба\математика\ГИА\Расписание
2. С:\учёба\Расписание
3. D:\2013\Зима\Январь\Вьюга.doc
<span>4. D:\2013\Весна\Май\Ландыш.doc
Остальные задания повторяются.</span>
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
var
a:integer;
begin
read(a);
writeln('Произведение десятков: ',(a mod 10)*(a div 10 mod 10)*(a div 100)*1000);
writeln('Произведение единиц: ',(a mod 10)*(a div 10 mod 10)*(a div 100));
readln;
readln;
end.
Пример:
123
Произведение десятков: 6000
Произведение единиц: 6
Program BiFi;
Var a,d:real;
Begin
readln(a);
readln(d);
writeln('P=',2*(a+d));
readln;
end.
Я тебя понимаю я тоже не понимаю мы в одной щколе?