Телефон компьютер и помойму письма
Program abc;
var a,b,c : real;
begin
writeln('Введите стороны угла через пробел:');
readln(a,b);
if a+b<180 then
writeln('3 угол = ',180-(a+b) ) else
writeln('Такого треугольника не существует.')
end.
Var
a:array[1..9] of boolean;
cnt,tmp,cur,all, i:integer;
begin
Writeln('Введите "0", чтобы закончить тестирование досрочно');
for i:= 1 to 9 do begin
tmp:= 1 + random(9);
while a[tmp] = true do
tmp:= 1 + random(9);
Write('8 * ',tmp,' = ');
Read(cur); if cur = 0 then break;
all:= all+1;
if cur = 8*tmp then cnt:=cnt+1 else writeln('Wrong: ', 8*tmp);
a[tmp]:=true;
end;
Writeln(cnt,'/',all);
end.
<u>Пример:</u>
Введите "0", чтобы закончить тестирование досрочно
8 * 8 = 64
8 * 3 = 24
8 * 5 = 45
Wrong: 40
8 * 7 = 0
2/3
3), т. к. логическое "или" ложно только тогда, когда ложны оба высказывания
Ответ:
Объяснение:
Передача информации: Рассказал другу параграф по истории. Передал подруге флешку с любимыми песнями.
Хранение информации. Хранение фотографий на жестком диске. Электронный учебник скачан на телефон.
Обработка информации: Решение задачи на уроке математики. Ввод текста с клавиатуры в компьюетер ( преобразование текста в довичный код)