Var
k, c: integer;
begin
k := 1;
for c := 1 to 5 do
if c mod 2 <> 0 then
k := k * c;
writeln(k);
end.
Ответ 15
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('>');
var n:=s.Length;
for var i:=n downto 1 do
Writeln((i-1)*' '+s[i:n+1].Inverse+s[i:n+1])
end.
<u>Пример</u>
> Геленджик
кк
киик
кижжик
киждджик
киждннджик
кижднеенджик
кижднелленджик
кижднелееленджик
кижднелеГГеленджик
Uses crt;
var s,i,x : integer;
begin
Read(x);
For i:=1 to 5 do begin
s:=s + (x mod 10);
x:=x div 10;
end;
Write (s);
end.
Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.
Имя ячейки конечно нельзя удалить