Это правильно ?это информатика 9 класс.задача. среди 4 чисел найти максимум и минимум:program zadacha;vara,b,c,d,max,min:real;be
Это правильно ? это информатика 9 класс. задача. среди 4 чисел найти максимум и минимум: program zadacha; var a,b,c,d,max,min:real; begin writeln('vvedite kofficient a,b,c,d'); If a>b then max:=a else min:=b; If c>d then max:=c else min:=d; <span>If a>c then max:=a else min:=c; </span>end.
USES crt; var a,b,c,d:real; BEGIN clrscr; readln(a,b,c,d); if (a > b) and (b > c) then writeln('Max = ',a,', Min = ',c); if (b > a) and (a > c) then writeln('Max = ',b,', Min = ',c);
if (a > c) and (c > b) then writeln('Max = ',a,' Min = ',b); if (c > a) and (a > b) then writeln('Max = ',c,', Min = ',b); if (b > c) and (c > a) then writeln('Max = ',b,', Min = ',a); if (b > d) and (d > b) then writeln('Max = ',b,', Min = ',b); if (d > b) and (d > b) then writeln('Max = ',d,', Min = ',a); readln; END. Задача легкая, но блин, пришлось подумать...
12 1.Создание, обработка 2.Обработка, поиск 3.Обработка, накопление хранение 4.Получение, сбор 5.Хранение, получение 6.Получение 13 Обработка - осмыслить полученную информацию Хранение - сохранение или запись полученной информации(в голове или на школьной доске) Передача - переместить информацию в пространстве, например тетрадь или голос 14 Информационный процесс происходит,т.к. живой организм даже не может жить без него,не то,что уж выполнять какие-то действия...
15
Нет,потому что,первоклассник в отличии от учителя математики не достаточно взрослый для того,чтобы понять до конца смысл информации
//FPC 2.6.4 Program sieve_of_Eratosthenes; var n, i, x:integer; a: array[1..32000] of boolean; begin readln(n); for i:=2 to (n+1) div 2 do begin x:=i*2; while x<=n do begin a[x]:=true; x:=x+i; end; x:=0; end; for i:=1 to n do if not a[i] then write(i,' '); readln; end.
Изображение, используемое в качестве символа. Обычно пиктограмма соответствует некоторому объекту и используетсяс целью предоставления более конкретной информации, подчеркивающей его типичные чер (пример — тэртэрийские надписи).
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin for var a:=1 to 6 do for var c:=0 to 5 do for var b:=0 to 4 do for var d:=5 to 9 do if (a+c=6) and (b-d=-5) then Write(a,b,c,d,' '); Writeln end.