Пердык пук пук пук пук пукпупкпупк пукпу кпук
1
алг.
нач
цел a, b, c
вещ к
ввод a b с
если а>=с
то а=а+а...(ну сами спишите эту мутотень)
иначе к (а тут я немного не поняла..Просто к?)
вывод к
кон
Ну и 2 других аналогично, так не охота все печатать тт
Из 7 частей состоит окно программы скренч
Вот такая программа (для PascalABC.NET). И еще ты не сказал, что делать с числом, если оно равно 0?
var a,x:integer;
begin
read(a);
if a<0 then x:=0 else x:=a;
writeln(x);
end.
Не забудь откомпилировать перед проверкой.
Var
s: string;
i: integer;
begin
read(s);
s := trim(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('Не палиндром');
exit;
end;
writeln('Палиндром');
end.