Сад (РАСТЕНИЯ, САДОВНИК, забор, земля, собака).
<span>Река (БЕРЕГ, рыба, тина, рыболов, ВОДА). </span>
<span>Игра (шахматы, ИГРОКИ, штрафы, ПРАВИЛА, наказания).</span>
//Pascal ABC.NET 3.1 сборка 1256
Var
ar:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
readln(ar[i]);
if ar[i] mod 3=0 then k:=k+1;
end;
writeln(k);
end.
23 div 5=4
16 div 4=4
5 div 8=0
37 div 10=3
23 mod 5=3
16 mod 4=0
5 mod 8=5
37 mod 10=7
Файл изображения имеет формат .jpg
#include <iostream>#include <cstdlib>#include <ctime>
using namespace std;
int main(){ srand(static_cast<unsigned int>(time(0))); //seed random number generator
int secretNumber = rand() % 100 + 1; // random number between 1 and 100 int tries = 0; int guess; cout << "\tWelcome to Guess My Number\n\n";
do { cout << "Enter a guess: "; cin >> guess; ++tries;
if (guess > secretNumber) { cout << "Too high!\n\n"; } else if (guess < secretNumber) { cout << "Too low!\n\n"; } else { cout << "\nThat's it! You got it in " << tries << " guesses!\n"; }
} while (guess != secretNumber);
return 0;}