Ща..самый крайний слева мудрунчик справа от него гануся потом олесь и крайний справа элзик
1)
Program hhh54;
var x:longint;
begin
read (x);
if ((x div 100) + ((x div 10) mod 10) + (x mod 10)) mod 2 <> 0 then write ('ЯВЛЯЕТСЯ')
else write ('НЕ ЯВЛЯЕТСЯ');
end.
2)
а)
Progran hhh54;
var i,k,x:longint;
begin
k:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then k:=k+1;
read (x);
end;
write (k);
<span>end.
</span>
б)
Progran hhh54;
var i,s,x:longint;
begin
s:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then s:=s+x;
read (x);
end;
write (s);
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var s:=0;
var a:=ReadInteger('Введите 1 число');
var b:=ReadInteger('Введите 2 число');
var c:=ReadInteger('Введите 3 число');
var d:=ReadInteger('Введите 4 число');
if a mod 3 =0 then s:=s+a;
if b mod 3 =0 then s:=s+b;
if c mod 3 =0 then s:=s+c;
if d mod 3 =0 then s:=s+d;
println('Сумма кратных 3 = ',s);
end.
Тестовое решение:
Введите 1 число 9
Введите 2 число 16
Введите 3 число 18
Введите 4 число 0
Сумма кратных 3 = 27
11001100110 = 666 = 3146
3FA41 = 111111101001000001 = 775<span>101
7532 = </span><span>F5A</span>
using System;
public class Program
{
public static void Main()
{
var rand = new Random();
int x = rand.Next(3, 10);
int t = 1200;
int count;
if (t % x == 0)
{
count = t / x;
}
else
{
count = t / x + 1;
}
int ans;
if (count % 20 == 0)
{
ans = count / 20;
}
else
{
ans = count / 20 + 1;
}
Console.WriteLine(ans.ToString());
}
}
Генерируем рандомное число от 3 до 10. Затем рассчитаем на сколько лекций он опоздает суммарно на 20 часов (т.е. 1200 минут). Разделим количество лекций, на которые он опоздал, на 20 с округлением вверх и получим ответ.