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

Найти все целые двухзначные числа,удольтворяющие условия.остаток на деление на 3,равен 2. нужно написать программу.и составить блок схемы

👇
Ответ:
гглол
гглол
11.02.2021

Прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

На tpascal:

var i: integer;

begin

for i:=10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i:=i+1;

end;

readln

end.

4,8(7 оценок)
Открыть все ответы
Ответ:
valera253
valera253
11.02.2021
Ну, нужно сравнить A+B и C стороны. Если A+B<=C(для каждой стороны), то треугольник не существует. Если A=B=C - равносторонний. Если A=B или A=C или B=C - равнобедренный.
псевдокод
bool Triangle(int &a, int &b, int &c)
{    
return ((a + b > c) && (b + c > a) && (c + a > b));
}
...
int Type(int a, int b, int c)
{    
if(a == b == c) {        
return 0;  
}  else  {       
if(a==b || c == b || a == c) {            
return 1;    
}
return 2;
}
}
int main()
{
...    
if(Triangle(a, b, c)) {
 cout<<(Type(a, b, c) == 0) ? "равносторонний" : (Type(a, b, c) == 1) ? "равнобедренный" : "разносторонний";    
} else {       
cout<<"Это не треугольник";
}
...    
return 0;
}
4,4(36 оценок)
Ответ:
Luchik22
Luchik22
11.02.2021
Program task8;
var ch:integer;
begin 
writeln('Введите число: ');
readln (ch);
case ch of
1:begin writeln ('понедельник'); writeln ('Литература'); writeln ('История'); writeln ('Алгебра'); writeln ('Английский'); writeln ('ОБЖ'); writeln ('Геометрия'); end;
2:begin writeln ('вторник '); writeln ('Обществознание '); writeln ('Информатика'); writeln ('Физика'); writeln ('Химия '); writeln ('География'); writeln ('Английский'); writeln ('Физкультура');end;
3:begin writeln ('среда '); writeln ('Физика'); writeln ('Физкультура'); writeln ('Алгебра'); writeln ('Алгебра'); writeln ('Французский'); writeln ('Русский'); writeln ('История');end;
4:begin writeln ('четверг ');writeln ('Французский'); writeln ('Алгебра'); writeln ('Геометрия'); writeln ('Английский'); writeln ('Английский'); writeln ('География'); writeln ('Физкультура');end;
5:begin writeln ('пятница '); writeln ('Информатика'); writeln ('Обществознание'); writeln ('Физика'); writeln ('Астрономия'); writeln ('Русский'); writeln ('Литература'); writeln ('Биология');end;
6:begin writeln ('суббота '); writeln ('- в этот день занятий нет'); end;
7:begin writeln ('воскресенье '); writeln ('- в этот день занятий нет'); end;
else writeln('Ошибка ввода');
end; 
end.

Пример:
Введите число 5
пятница
Информатика
Обществознание
Физика
Астрономия
Русский
Литература
Биология
4,6(49 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ