Var a,b,c:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln(3)
else if (a=b)or(a=c)or(b=c) then writeln(2)
else writeln(0);
end.
Пример:
a, b, c:
1 2 1
2
Зрителельная ,тактильная ,вкусовая,слуховая
Var
i:integer;
a:array [1..8] of real;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=8+ Random;
writeln(a[i]:0:2);
end;
end.
1) расстояние вытянутой руки;
2)сообщить об этом учителю ;
3) Информатика - это наука о способах и методах представления, обработки, передачи и хранения информации с помощью ЭВМ.
4)Информация - сведения об окр.мире, получаемые человеком в процессе его жизнеобразовательной деятельности.
5)графическая
6)звуковая
7)глаз
8)ушей
9)убывание: 10 гб, 5 гб, 1 гб, 500 мб
возрастание: 500 мб, 1 гб, 5 гб, 10 гб
11) для защиты компьютера от угроз
12) Отличительными особенностями компьютерных вирусов являются: 1) маленький объем; 2) самостоятельный запуск; 3) многократное копирование кода; 4) создание помех для корректной работы компьютера
13)программу для уплотнения информационного обьема файлов
15) восстановления файлов из архива точно в таком виде, какой они имели до загрузки в архив.
16)создание вычислительной машины, написала первую в мире программу
20) система последовательных операций