Var s,s1:string; p:byte;
<span>begin readln(s); for p:=length(s) downto 1 do s1:=s1+s[p]; </span>
<span>writeln(s1); end.</span>
38.89 получается 38.9,а 37.56 получается 37.6 их сумма 76.5
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a
DIM a(n)
h=30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b
IF INT ((a(n) - 4 ) / 10) = ((a(n) - 4) / 10) AND a(n) < h THEN h = a(n)
NEXT i
PRINT h
END
Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
Описание алгоритма нахождения НОД делением
1 - <span>Большее число делим на меньшее.
2 - Если делится без остатка, то меньшее число и есть НОД.
3 - Если есть остаток, то большее число заменяем на остаток от деления.
4 - <span>Переходим к пункту 1.
Пример такой:
</span></span>Найти НОД для 30 и 18.
30/18 = 1 (остаток 12)
18/12 = 1 (остаток 6)
12/6 = 2 (остаток 0). Конец: НОД – это делитель. НОД (30, 18) = 6