ИНФОРМАТИКА 6 КЛАСС РИВКІНД ЗАДАНИЕ:
С.122-123 ВАРИАНТ 2 ПРАКТИЧНАЯ 5

#include <iostream>

#include <clocale>

using namespace std;

int main()

{

   setlocale(LC_ALL,"Russian");

   int s;

   cout << "Введите s: ";

   cin >> s;

   switch(s)

   {

       case 0: cout << "LOSE"; break;

       case 1: cout << "DRAW"; break;

       case 3: cout << "WIN"; break;

       default: cout << "Неверное число."; break;

   }

}

Объяснение:

#include <iostream>  // Библиотека ввода-вывода

#include <clocale>  // Библиотека локализации (возможно, будет работать без нее)

using namespace std;  // Пространство имён

int main()

{

   setlocale(LC_ALL,"Russian");  // Локализация (возможно, будет работать без нее)

   int s;  // Создание целочисленной переменной

   cout << "Введите s: ";  // Вывод текста в консоль

   cin >> s;  // Ввод переменной с клавиатуры

   switch(s)  // Принимает значение s

   {

       case 0: cout << "LOSE"; break;  // Если s = 0, то выводим LOSE

       case 1: cout << "DRAW"; break;  // Если s = 1, то выводим DRAW

       case 3: cout << "WIN"; break;  // Если s = 3, то выводим WIN

       default: cout << "Неверное число."; break;  // Если s не равно ни одному из трёх чисел, то выводим Неверное число

   }

}

Var a1,a2,a3,a4,a5,a6,a7,a8,k:integer;
begin
k:=0;
read (a1,a2,a3,a4,a5,a6,a7,a8);
if (a1>0) and (a2>0) and (a3>0) and (a4>0) and (a5>0) and (a6>0) and (a7>0) and (a8>0) then
begin
if (a1 mod 3 = 0) and (a1 mod 10 = 4) then k:=k+1;
if (a2 mod 3 = 0) and (a2 mod 10 = 4) then k:=k+1;
if (a3 mod 3 = 0) and (a3 mod 10 = 4) then k:=k+1;
if (a4 mod 3 = 0) and (a4 mod 10 = 4) then k:=k+1;
if (a5 mod 3 = 0) and (a5 mod 10 = 4) then k:=k+1;
if (a6 mod 3 = 0) and (a6 mod 10 = 4) then k:=k+1;
if (a7 mod 3 = 0) and (a7 mod 10 = 4) then k:=k+1;
if (a8 mod 3 = 0) and (a8 mod 10 = 4) then k:=k+1;
writeln (k);
end else
writeln ('Неверный ввод');
end.