ЦЕНТРАЛЬНЫЙ ПРОЦЕССОР (СЕРВЕР СЕТИ), большой, быстродействующий и мощный центральный КОМПЬЮТЕР и связанные с ним устройства памяти. Пользователи могут иметь маленькие терминалы, напоминающие персональные компьютеры, в которых есть ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ, открывающее доступ пользователю к данным сервера.
Var x, y, z, k: integer;
begin
readln(x, y, z);
k:=0;
if (x mod 3 = 0) then begin inc(k); writeln(x, ' кратно трем');end;
if(y mod 3 = 0) then begin inc(k); writeln(y, ' кратно трем');end;
if (z mod 3 = 0) then begin inc(k); writeln(z, ' кратно трем'); end;
if (k =0) then writeln('Переменных, кратных трем, не обнаружено!');
end.
Так пойдет?это все расширения файлов.мне за это поставили 5.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(13,100,999); a.Println;
var s:=a.Where(t->t.ToString.Contains('2'));
Writeln('Сумма отобранных чисел равна ',s.Sum,
', их количество равно ',s.Count)
end.
<u>Пример</u>
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2
1. 45
2. 26
3. 88
4. 150
5. 120