const
N = 3;
var
a: array[1..N] of integer;
i, max: integer;
begin
max := 0;
writeln('Введите результаты трех спортсменов');
for i := 1 to N do readln(a[i]);
for i := 1 to N do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('Лучший результат среди трех спортсменов - ', max);
end.
Коля тракторист, Саша комбайнёр, Петя - садовник.
1.Анализированные
синтезированные
2.Понятие "информационная культура" характеризует одну из граней культуры, связанным аспектом жизни людей.
В широком смысле под информационной культурой понимают совокупность принципов и реальных механизмов,обеспечивающих позитивное взаимодействие этнических и национальных культур, их соединение в общий опыт человечества.
Объем графического файла равен= кол-во пикселей*глубину цвета. подставим в формулу данные:
16 цветов, значит глубина цвета i=4 бита
625*8 бит=125*х пикселей в ширину*4 бит(глубина)
х=625*8/(125*4)= 10 пикселей
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Range(20, 50).Where(t -> (t mod 3 = 0) and (t mod 5 <> 0)).Println
end.
<h2>21 24 27 33 36 39 42 48</h2>