1 ЗАДАЧА: var a, b, c, max:integer; begin writeln('Введите 3 целых числа'); readln(a, b, c); if a>b then max:=a else if b>c then max:=b else max:=c; writeln('Наибольшее число = ', max); end. 2 ЗАДАЧА: var a, b, c, y, x, min, max:integer; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); writeln('Введите третье число'); readln(c); writeln('Введите четвертое число'); readln(x); writeln('Введите пятое число'); readln(y); if a > b then max :=a else max :=b; if max < c then max:=c; if max < y then max:=y; if max < x then max:=x; writeln('Максимальное число = ', max); end. 3 ЗАДАЧА: var a:integer; b:real; begin write(' введите заданное число '); read(a); if a mod 2 = 0 then b:= a / 4 else b:= a * 5; write(' Полученный ответ = ', b:5:2); end. 4 ЗАДАЧА: var c:integer; begin readln(c); if c>180 then writeln('ВЫСОКИЙ') else writeln('НЕ ОЧЕНЬ ВЫСОКИЙ'); end. 5 ЗАДАЧА: var a: real; begin write ('Введите Вашу температуру: '); read(a); //Вещественное число вводится через точку if (a>=36) and (a<=37) then writeln ('ЗДОРОВЫЙ') else writeln ('БОЛЬНОЙ'); end.

Информатика

Ответить

Ответы

tagirova1

24.10.2022

3 Информация - совокупность сведений, знаний о чем-либо; сообщение - совокупность знаков , отображающих информацию.
4 Кодирование - зашифровка информации (перевод языка на азбуку Морзе),декодирование - расшифровка( расшифровка сообщения с азбуки Морзе,к примеру, на русский язык).
5 Кол-во информации предотвращает неопределенность.Неопределенность информации характеризуется энтропией, хаосом.
6 Актуализация информации - совокупность действий по обновлению, расширению, восстановлению информации для эффективности ее использования.
7 Актуальность, полнота, доступность,понятность (т.е. понятна для восприятия)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1 ЗАДАЧА: var a, b, c, max:integer; begin writeln('Введите 3 целых числа'); readln(a, b, c); if a>b then max:=a else if b>c then max:=b else max:=c; writeln('Наибольшее число = ', max); end. 2 ЗАДАЧА: var a, b, c, y, x, min, max:integer; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); writeln('Введите третье число'); readln(c); writeln('Введите четвертое число'); readln(x); writeln('Введите пятое число'); readln(y); if a > b then max :=a else max :=b; if max < c then max:=c; if max < y then max:=y; if max < x then max:=x; writeln('Максимальное число = ', max); end. 3 ЗАДАЧА: var a:integer; b:real; begin write(' введите заданное число '); read(a); if a mod 2 = 0 then b:= a / 4 else b:= a * 5; write(' Полученный ответ = ', b:5:2); end. 4 ЗАДАЧА: var c:integer; begin readln(c); if c>180 then writeln('ВЫСОКИЙ') else writeln('НЕ ОЧЕНЬ ВЫСОКИЙ'); end. 5 ЗАДАЧА: var a: real; begin write ('Введите Вашу температуру: '); read(a); //Вещественное число вводится через точку if (a>=36) and (a<=37) then writeln ('ЗДОРОВЫЙ') else writeln ('БОЛЬНОЙ'); end.