Помогите пожалуйста решить задачи в паскале. 1)найти сумму целых ...
Помогите пожалуйста решить задачи в паскале.
1)найти сумму целых положительных чисел из промежутка от a до b кратных 4.a и b вводим с клавиатуры.
2)найти перевертышь трехзначного числа.
Есть ответ
17.12.2022
360
Ответ
1)
uses crt;
var a,b,i,sum:integer;
begin
read(a,b);
for i:=a to b do
if (i>0) and (i mod 4=0) then sum:=sum+i;
write(sum);
end.
2)
uses crt;
var i,n:integer;
s,tmp:string;
begin
read(n);
tmp:=inttostr(n);
for i:=length(tmp) downto 1 do
s:=s+tmp[i];
write(s);
end.
Для ABC Pascal. Иначе функцию inttostr нужно будет заменить на str(n,tmp)
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
