Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
Ответ в файле:vvvvvvvvvvv
Program a;
var a: array [1..10] of integer;
n,s: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20)-10;
write(a[i]);
end;
readln(n);
for i:=n to 9 do begin
s:=a[i+1];
a[i+1]:=a[i];
a[i]:=s;
end;
for i:=1 to 9 do
writeln (a[i]);
end.
#include <iostream>
using namespace std;
/* Язык С++.
* Запрашиваем у пользователя неопределенное количество целых чисел
* пока не введёт значение = 0
* посчитать количество элементов введенных пользователем кратных 5,
* а также вывести номер первого элемента, введенного пользователем значения = 5.
* Ноль не учитывается (если 5 нет, то номер = 0)
* Использовать do, while
*/
int main()
{
int n, c5 = 0, i = 1, i5 = 0;
bool found5 = false;
do {
cout << "Число: ";
cin >> n;
if (n == 0) break;
else if (n % 5 == 0) {
c5++;
if (i5 == 0) {
i5 = i;
}
}
i++;
} while (true);
cout << "Количество чисел, кратных 5: " << c5 << endl;
cout << "Номер первого элемента, кратного 5: " << i5 << endl;
return 0;
}