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

Определи истинность высказывания: В случае отсутствия в программном коде пятисекундной задержки, раунд считается проигранным.​

👇
Ответ:
katya6913
katya6913
12.04.2020

Истина

Объяснение:

ПРОВЕРЕННО В ОНЛАЙН МЕКТЕП

4,4(63 оценок)
Открыть все ответы
Ответ:
myafyanya
myafyanya
12.04.2020
Var a,b,c:longint;
begin
        readln(a,b,c);
        if (a=b) and (b=c)  then //если a=b и b=c то
                      writeln('true')
        else       
                      writeln('false');
end. 

var n:longint;
begin
           readln(n);
           if (n div 100=0) and (n div 10<>0) and (n mod 2=0) then
           //если целая часть от деления на 100 равна 0
           //и целая часть от деления на 10 не равна 0 то 
                        writeln('true')
           else
                        writeln('false');
end.
4,5(86 оценок)
Ответ:
turtuyrty
turtuyrty
12.04.2020
Program gt2;
var i,j,s:integer;
a:array[1..4,1..4]of integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(7)+12;
for i:=1 to 4 do
begin
s:=0;
for j:=1 to 4 do
s:=s+a[j,i];
writeln(s);
end;
end.

program gt3;
var i,j,s:integer;
a:array[1..7,1..7]of integer;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 7 do
a[i,j]:=random(7)+12;
for i:=1 to 7 do
begin
s:=0;
for j:=1 to 7 do
if(a[j,i]<14)then s:=s+1;
writeln(s);
end;
end.

program gt4;
var i,j,p:integer;
a:array[1..3,1..3]of integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
for i:=1 to 3 do
begin
p:=a[i,1];
a[i,1]:=a[i,2];
a[i,2]:=p;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
end.
4,7(91 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ