===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.
<span>S(1, 2, 'z'); - неверный вызов.
Фактический параметр 'z' - константа и он не может сопоставляться параметру процедуры с, имеющему описатель var.
</span>
Var A:longint;
k:byte;
Begin
k:=0;
WriteLn('Введите целое число: ');ReadLn(A);
While A div 10 <> 0 do
Begin
if (A div 10) mod 10 = A mod 10 then k:=1;
A:=A div 10
End;
if k = 1 then Write('Да.')
else Write('Нет.')
End.
C++
#include <iostream>
using namespace std;
int main()
{
int n = 0;
cout << "Enter num: ";
cin >> n;
if (n >= 100 && n <= 999) {
int s = (n / 100) + ((n / 10) % 10) + (n % 10);
if (s % 3 == 0) {
cout << "Num multiple 3" << endl;
} else {
cout << "Num not multiple 3" << endl;
}
if (s % 5 == 0) {
cout << "Num multiple 5" << endl;
} else {
cout << "Num not multiple 5" << endl;
}
} else {
cout << "Error!" << endl;
}
return 0;
}