#include <iostream>
using namespace std;
int main(){
int a, s=0;
cin>>a;
for(int i=0; i<5; ++i){
a/=10;
s+=a;
}
cout<<s<<endl;
}
Если требуется прибавить и изначальное число, просто прибавь его к итоговому s.
Uses crt;
var s1, s2: String;
d1, d2: Integer;
begin
readln(s1, s2);
d1 := length(s1);
d2 := length(s2);
if d1 > d2 then writeln('Строка ', s1, ' длиннее') else writeln('Строка ', s2, ' длиннее');
end.
3) ответ : 2) 13 тк 1 корневой + 3 первых* 4 вторых
4) ответ: 1,2,3
NO потому что на шахматной доске всегда идёт чередование белый чёрный,белый чёрный,белый чёрный,белый чёрный, белый чёрный, белый чёрный и т.д
Var N: integer; sum: real; begin write('Введите количество чисел: '); readln(N); write('Введите числа: '); sum := 0; for var i := 1 to N do begin var x := ReadReal; sum += x; end; writeln('Сумма введенных чисел = ',sum); end.