Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно
Виды информации:
1. Текстовая - представленная на каком-либо из существующих языков, например, book - английский язык.
2. Числовая - представленная в виде цифр, например, 1,2,3...
3. Графическая - картины, фотографии, чертежи, схемы и т. д.
4. Звуковая - все, что слышит человек, например, человеческая речь, музыка, пение птиц.
<span>5. Видеоинформация - последовательность изображений, например, фильмы, мультфильмы.</span>
1)
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n =');
Range(1,n).Select(i->i*i).Println;
end.
Пример:
n = 5
1 4 9 16 25
2)
<span>var n,i: integer;
begin
write('N = ');
readln(n);
i:=0;
while (i<n) do
begin
i:=i+1;
write(i*i,' ');
end;
end<span>.
3)
var n,i: integer;
begin
write('N = ');
readln(n);
i:=0;
repeat
i:=i+1;
write(i*i,' ');
until i=n;
end.
Пример:
<span>N = 5
1 4 9 16 25</span></span></span>
Нужно найти сумму периметров всех клумб.
Первая: 23*4 = 92
Вторая: 23*2 + 3*2 = 52
Третья: 2*4 = 8
Четвёртая: 23*2 + 2*2 = 5092+52+8+50 = 202 метра.
Это больше похоже на задачу по математике, чем информатике.