Помогите пожалуйста в Pascal ABC Net написать программу для параллелограмма!
5-9 класс
|
program z;
var i:integer;
s,s1:string;
begin
read(s);
for i:=length(s) downto 1 do
s:=s1+s[i];
for i:=1 to length(s) do
if s[i]<>s1[i] then
begin
write('Не палиндром');
halt;
end;
write('Палиндром');
end.
Другие вопросы из категории
p:=x*x
x:=x+1
p:=x*x
Читайте также
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)
Написать программу вычисления значений выражения:
а) 2 в степени 3+ 3 в степени 2+ 4 в степени 2/
1. Написать программу нахождения произведения n чисел.
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"