М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Алгоритмический язык
ниже программа, записанная на трёх языках программирования.
бейсик
паскаль
алг
dim s, t as integer
var s, t: integer;
нач
input s
begin
цел s, t
input t
readln (s);
ввод ѕ
if s> 8 or t> 8 then
readln(t);
ввод t
print "да"
if (s> 8) or (t> 8)
если s> 8 или t> 8
else
then writeln ('да')
то вывод "да"
print "het"
else writeln('het')
иначе вывод "нет" end if
end.
все
кон
было проведено 9 запусков программы, при которых в качестве значений переменных ѕи
t вводились следующие пары чисел:
(3, 5); (-9, 10); (9, 10); (8, 8); (-10, 9); (9, 4); (3, 10); (-9, -10); (8, 7).
сколько было запусков, при которых программа напечатала «да»?
ответ: ​

👇
Ответ:

Пять

Объяснение:

Оно проверяло, хоть одно число больше восьми.

4,6(47 оценок)
Открыть все ответы
Ответ:
SandruhA
SandruhA
20.01.2021
Var
i,j,k:longint;
    begin
         for i:=1 to 1000 do
              for j:=1 to 1000 do       
                   for k:=1 to 10000 do             
                      if sqr(i)+sqr(j)=sqr(K)then               
                           begin                 
                                writeln(i,' ',j,' ',k);  {вывожу все тройки, можно убрать}             
                                     if i+j+k=1000 then                 
                                          begin                 
                                               writeln('! ',i,' ',j,' ',k);  {нужная тройка}                
                                                exit; {прерывание программы}                
                                          end;               
                           end;   
     end.


Существуют тройки пифагора, то есть a^2+b^2=c^2 . есть лишь одна такая тройка, что a+b+c=1000 . напи
4,5(2 оценок)
Ответ:
overlord735
overlord735
20.01.2021
program cube; var a : real; begin writeln('Программа вычисляет объем куба и площадь '+ 'его боковой поверхности по длине ребра'); {I - ввод + ЗОД} repeat write('Введите длину ребра куба '); readln(a); if a<=0 then writeln('Ошибка! Длина ребра не может быть нулевой или отрицательной. '+ 'Повторите ввод.'); until a>0; {II, III - расчет и вывод} writeln('Длина ребра куба = ',a:8:3,' м'); writeln('Объем этого куба = ', (a*a*a):8:3,' м^3'); writeln('А площадь его боковой поверхности = ', (6*a*a):8:3,' м^2'); writeln('Нажмите [Enter] для завершения программы'); readln; end.
4,4(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ