<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
<span>Дано условие. Выбери верный ответ. If (a > 90) or (b > 90) or (c > 90) then writeln ( 'Треугольник - 'Тупоугольный' );</span>
Ответ:
Визуальная — воспринимаемая органами зрения.
Звуковая — воспринимаемая органами слуха.
Тактильная — воспринимаемая тактильными рецепторами.
Обонятельная — воспринимаемая обонятельными рецепторами.
Вкусовая — воспринимаемая вкусовыми рецепторами.
Ответ:
2) K∧D
Объяснение:
Конечно, K∧D
Как и обычной алгебре, в булевой умножение также старше деления
Ответ:
Сколько раз будет выполнен цикл? 9
Объяснение:
При каждом выполнении i увеличивается на единицу, первый проход i=2, последний i=10