Вправо закрась закрась влево вправо влево вправо вверх вниз закрась закрась вниз .вниз влево
var
a: 1000..9999; //Четырехзначное число
a1, a2, a3, a4: 1..9;
begin
writeln('Введите четырехзначное число');
readln(a);
a1:= a mod 10; //Первая с конца цифра
a2:= (a mod 100) div 10; //Вторая с конца цифра
a3:= (a mod 1000) div 100; //Третья с конца цифра
a4:= a div 1000; //Четвертая с конца цифра
writeln('Сумма цифр данного числа: ', a1 + a2 + a3 + a4); //Сумма цифр
end.
//Работает до 7 числа
//Dev-C++ 5.11 (C)
#include <stdio.h>
#include <math.h>
int main(void)
{long long unsigned int a,b,i,d;
i=2;
d=1;
scanf("%d %d",&a,&b);
while (pow(2,i-1)*(pow(2,i)-1)<=b)
{for(int j=2;j<(pow(2,i)-1)/2;j++)
if(int(pow(2,i)-1)%j==0)d=0;
if(d)
{d=pow(2,i-1)*(pow(2,i)-1);
if(d>=a)printf("%d \n",d);}
d=1;
i++;}
return 0;}
var m,n:integer;
begin
readln(m,n);
if (m mod n)=0 then
write(m div n) else
<span>writeln(m,'<em> на</em> ',n,' <em>нацело не делится.');
</em></span>end.
<em>Помог ставь "<u>Лучший ответ</u>" ;)</em>