#include <iostream>
#include <string>
using namespace std;
int char_to_int(char symb) {
return symb - '0';
}
int main() {
string bufer;
cin >> bufer;
long long sum = 0, len = bufer.length();
for(int i = 0; i < len; ++i) {
sum += char_to_int(bufer[i]);
}
if(sum % 3 == 0)
cout << "YES";
else
cout << "NO";
system("pause");
}
Вот тебе правильный код:
program test;
var A,c:integer;
begin
A:=4;
c:= (какое либо значение);
Writeln('Значение c=', c);
Write('Молодец,');
Readln;
end.
<span> X Y
</span>1.(101,101) (5, 5)
2.(1000,1000) (8, 8)
3.(1001,100) (9, 4)
4.(1011,1110) (11, 14)
5.(1100,110) (12, 6)
6.(1100,111) (12, 7)
7.(1011,111) (11, 7)
8.(1011,10) (11, 2)
9.(1001,10) (9, 2)
10.(1001,11) (9, 3)
11.(1010,11) (10, 3)
12.(1010,100) (10, 4)
13.(111,100) (7, 4)
<span>14.(111,10) (7, 2)</span><span>
</span>График во влажении. Не знаю как их плавной линией соединить, сильно они разбросаны.
<h2>
1.</h2>
program raf105;
var a,b,c:integer;
begin
write('Введите 3 числа: ');
readln(a,b,c);
if (a<b) and (a<c)
then writeln('Произведение 2 наибольших чисел: ',b*c);
if (b<a) and (b<c)
then writeln('Произведение 2 наибольших чисел: ',a*c);
if (c<b) and (c<a)
then writeln('Произведение 2 наибольших чисел: ',b*a);
end.
<h2>2.</h2><h3>а)</h3>
program raf105;
var a,i,b:integer;
begin
write('Введите число: ');
readln(a);
for i:=1 to a do
if ((a mod i)=0) and ((i mod 2)<>0)
then b:= b+i;
writeln('Сумма нечётных делителей введённого числа: ',b);
end.
<h3>б)</h3>
program raf105;
var a,a2,i,j,b:integer;
begin
write('Введите меньшее число: ');
readln(a);
write('Введите большее число: ');
readln(a2);
for j:=a to a2 do
begin
for i:=1 to j do
if ((j mod i)=0) and ((i mod 2)<>0)
then b:= b+i;
writeln('Сумма нечётных делителей числа ',j,' равна: ',b);
b:= 0;
end;
end.
<u><em>Язык программирования PascalABC</em></u>