var
s,i: integer; {s,i - цел}
begin
s := 0;
for i := 1 to 5 do
s := s + i;
write(s)
end.
var
i, j, k : integer;
begin
i := 1 + trunc (random (100));
j := 0;
repeat
writeln ('Введите число');
read (k);
inc (j);
until k = i;
writeln ('Верно. Отгаданно с ', j, ' попытки. ');
end.
Компьютер
Точный, быстрый
Считает, помогает, развлекает
Делает только, что ему говорят
Помощник
Общение
Личное, повседневное
Сообщают, предупреждают, спрашивают
Общение нужно каждому человеку
Человек
Модель
Математическая, информационная
Разъясняет, показывает, заменяет
В голове всегда модели
Копия
А компьютер не выделяет красненьким примерное место, где есть ошибка?