#include <iostream>
using namespace std;
int main()
{
int n,s;
for (int i=100; i<=999; i++)
{
n = i % 10;
s = n*n*n;
n = i / 10 % 10;
s = s+n*n*n;
n = i /100;
s = s+n*n*n;
if (i == s) cout << i << "\n";
}
return 0;
}
Результат:
<span>153
370
371
407</span>
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
c,i,k:integer;
ar:array[1..n] of integer;
r:real;
begin
readln(c);
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-43,34);
if ar[i]>c then
begin
inc(k);
r:=r+ar[i];
end;
write(ar[i]:4);
end;
writeln;
r:=r/k;
write(r);
end.
Пример ввода:
0
Пример вывода:
Array:
20 -23 23 18 -40 -16 -39 31 -12 21
22.6
Const
N = 5;
M = 10;
Var
A : array[1..N,1..M] of Integer;
i,j : Byte;
Begin
For i:=1 to N do
Begin
For j:=1 to M do
Begin
If i>j then A[i,j]:=i else A[i,j]:=i*j;
Write(a[i,j]:6);
end;
Writeln;
end;
end.
Чем является информация для человека?Каким должно быть сообщение, чтобы оно пополнило ваши знания?Информативны ли для вас следующие сообщения: "Сколько в слове гласных звуков, столько в слове и слогов" и "Термин "мультимедиа" означает объединение текста, звука, графики и видео в одном документе"? Ответ обоснуйте.Какими средствами приёма сигналов из внешнего мира обладает человек?Какие ощущения вы испытывали, купаясь летом в реке?Из чего складывается восприятия? Приведите пример.Каково ваше представление о носителях информации? Опишите их.Что такое понятие? Приведите примеры понятий из повседневной жизни, а также из курсов математики, русского языка, истории, географии и информатики.Приведите 2-3 примера суждений, в которых речь идет об объектах, изучаемых на уроках информатики.<span>Сделайте умозаключения.</span>
Uses SysUtils,Windows;
var a:array of Integer; i,n,s,o:Integer;
begin
o:=0;
s:=0;
SetConsoleOutputCP(1251);
Randomize;
write('Введите "N": ');
readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
begin
a[i]:=Random(10)-5;
write(a[i]:3);
end;
Writeln;
Writeln;
for i:=0 to Length(a) do
begin
if a[i] mod 2=1 then
Inc(s);
if a[i]<0 then
Inc(o);
a[i]:=a[i]*(-1);
end;
Writeln('Кол-во отрицательных элементов: ',o);
Writeln('Кол-во нечетных элементов: ',s);
Writeln;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
<span>end.</span>