//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
Среди множества редких профессий можно выделить самую редкую. Это смотритель райского острова. Потребность в такой профессии возникла, когда понадобилось найти человека, который занимался бы пропагандой отдыха на райских островах.Одна из туристических компаний искала человека, который на протяжении шести месяцев проживал бы на острове в вилле, плавал в бассейне, нырял с аквалангом, фотографировал, играл в гольф и вёл свой блог. Такой смотритель понадобился для одного из австралийских островов. Его название – Гамильтон.После проведения всемирного конкурса, достойная кандидатура была определена. Зарплата за полгода составила сто десять тысяч долларов. Обладателем данной профессии является всего один человек в мире, именно поэтому она и одержала победу среди претендентов на роль самой редкой.
<span> 2*16=65536 бит =(/8) 8192 байт = (/1024) 8 Кбайт</span>
(100 * 1024 * 1024 * 8) / 1000000 = 839 сек = 14 мин
все округлено в большую сторону
Program zadacha;
var x, y, z: integer (либо real);
begin
readln (x);
readln (y);
if x>=15 then
begin
z:=x*3;
end else
begin
z:=y*3;
end;
write (z);
end.