Program <имя программы>
var <имя переменной > : <тип переменной>; - обязательная часть, объявление переменных
uses crt;
begin
<тело программы> - обязательная часть
end.
Ответ:
program p_1;
const n=15;
var i:integer;
p:real;
a:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(130)-50;
writeln('a[',i,'] = ',a[i])
end;
p:=1;
for i:=1 to n do p:=p*a[i];
writeln;
writeln('p = ',p)
end.
#include <iostream>
bool isSelfDivisible(int n) {
int k = n;
while (k > 0) {
if (k % 10 == 0 || n % (k % 10) != 0)
return false;
k /= 10;
}
return true;
}
int main() {
int L, K;
std::cin >> L >> K;
for (int i = L; i <= K; i++)
if (isSelfDivisible(i))
std::cout << i << std::endl;
return 0;
}
Пример ввода:
122 128
Пример вывода:
122
124
126
128
var n: integer;
begin
readln(n);
if n mod 10=n div 100 then
write('нет') else write('да');
end.
Хард- к<span>омпьютерный носитель информации</span>