Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
Program ex4;
Var
m,n:longint;
S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
Begin
S:=S+(m mod 10);
m:=m div 10;
End;
WriteLn('Сумма цифр равна: ',S);
End.
Program ex4;
Var
m,n:longint;
S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
Begin
S:=m mod 10;
m:=m div 10;
End;
WriteLn('Первая цифра числа: ',S);
End.
<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
end.
<u><em>C++:</em></u>
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = ";
cin >>a[i];
}
return 0;
}
Ми розумні та кмітливі і завжди на позитиві!