var a: integer;
begin
writeln('Введите четырехзначное число');
readln(a);
if a div 1000=(((a mod 1000) mod 100) mod 10) then writeln('Верно') else writeln('Не верно');
end.
for
примеры
(Pascal)
for i := 1 to 10 do
s:=s+1;
(C#,C++)
for (int i=0;i<10;i++) {
s+=i;
}
(Ruby)
for i in 1..10
s=s+i
end
(VB, VBA, Basic,..)
for i = 1 to 10
s=s+i
next i
По умлчанию шагом счетчика является 1. Обычно шаг счетчика можно менять фразой by или step by. Хотя увы такое есть не во всех языках
(C#,C++)
for (int i=0;i<10;i=i+2) {
s+=i;
}
(VB, VBA, Basic,..)
for i = 1 to 10 step by 2
s=s+i
next i
Например в паскале возможен только обратный отсчет
for i := 10 downto 1 do
s:=s+1;
еще for примечателен тем, что даже если конец меньше начала (в варианте увеличения счета), то цикл все равно пройдет один раз. Правда не знаю подпадают ли под это правило языки из группы С
это датчик для скорости нааерно