В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

СОР Найдите соотвестие А)вставка функций Б)условное форматирование В)сортировка Г)автосумма А Г


СОР Найдите соотвестие А)вставка функций Б)условное форматирование В)сортировка Г)автосумма А Г

Показать ответ
Ответ:
motovsavelymotOv
motovsavelymotOv
13.01.2023 16:34
{ Пример программы для процедуры FloodFill } 
Uses Graph,Crt; 
Var Gd, Gm : Integer; 
Begin 
Gd:=Detect; 
InitGraph(Gd, Gm, ''); 
If GraphResult <> grOk Then Halt(1); 
SetColor(GetMaxColor); 
Circle(50, 50, 20); 
FloodFill(50, 50, GetMaxColor); 
Readkey; 
CloseGraph; 
End. 

Procedure FloodFill(X, Y : Integer; Border : Word); 
Закрашивает замкнутую область, используя текущие стиль и цвет закраски. 

Procedure SetFillStyle(Pattern : Word; Color : Word); 
Устанавливает цвет и стиль закраски. 

Procedure SetColor(Color : Word) 
устанавливает текущий цвет, 
0,0(0 оценок)
Ответ:
Vadimka221105
Vadimka221105
02.01.2023 03:31
Программа на Pascal
 var   Age : integer;
begin Repeat Write('Введите Ваш возраст: ');
Readln(Age); until Age in [1..99];
if Age in [10..20] then Writeln('Мне ', Age, ' лет')
else    case Age mod 10 of    1: Writeln('Мне ', Age, ' год');    
2, 3, 4 : Writeln('Мне ', Age, ' года');    
0, 5..9 : Writeln('Мне ', Age, ' лет');
end;
end.
программа на C++
#include <iostream> 
using namespace std; 
int main() 

setlocale(LC_ALL,"rus"); 
int k; 
cin>>k; 
if(k >0 && k<100) 
cout<<"Мне "<< k <<" лет"; 
system("pause >> void"); 
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота