Алгоритм получает на вход натуральное число N > 1 и строит по нему новое число R следующим образом:
1. Вычисляется сумма чётных цифр в десятичной записи числа N. Если
чётных цифр в записи нет, сумма считается равной нулю.
2. Вычисляется сумма цифр, стоящих на чётных местах в десятичной записи
числа N без ведущих нулей. Места отсчитываются слева направо (от старших
разрядов к младшим, начиная с единицы). Если число однозначное (цифр
на чётных местах нет), сумма считается равной нулю.
3. Результатом работы алгоритма становится модуль разности полученных
двух сумм.
Пример. Дано число N = 2021. Алгоритм работает следующим образом:
1. Чётные цифры в записи: 2, 0, 2, их сумма равна 4.
2. Цифры на чётных местах: 0, 1, их сумма равна 1.
3. Модуль разности полученных сумм равен 3.
Результат работы алгоритма R = 3.
При каком наименьшем N в результате работы алгоритма получится R = 9?
var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p:=a+b+c;
if (a=b) and (a=c)then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.
А если написать самостоятельно, я бы сделал так:
var
a,b,c:real;
begin
Write('Введите размеры треугольника a,b,c: '); Read(a,b,c);
if (a=b) and (a=c) then
Writeln('Треугольник равносторонний с периметром ',3*a)
else Writeln ('Треугольник не равносторонний')
end.
program Task;
var N,i,kol,sum:integer; //По-хорошему, не integer. Потому что мы работаем с натуральными числами, а не отрицательными
begin
read(N);
for i:=1 to N do
begin
if (i mod 15)=0 then kol:=kol+1; //15 - это НОК(3,5)
end;
while (N<>0) do
begin
sum:=sum+N mod 10;
N:=N div 10;
end;
writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol);
writeln('Сумма цифр числа N равна', sum);
end.
Пиши, если что-то не работает или не понятно :)