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

1 Назовите элементы программы Microsoft Access?
2 Для чего нужен за отчет, форма?
3 Как создать форму?
4 Что такое таблица?
5 Что такое Форма?
6 Что такое За Что такое Отчет?
8 Что такое гиперссылка

Показать ответ
Ответ:
avritsevich0116
avritsevich0116
08.02.2020 20:32
Приготовление плова
1. Свинину моем, режем на небольшие кусочки.
2. Рис моем, заливаем водой.
3. Лук чистим, режем полукольцами.
4 Морковь чистим, режем соломкой.
5. В казане разогреваем растительное масло,
 6 поджариваем лук.
7 добавляем мясо
8 обжариваем на сильном огне со всех сторон.
 9 добавляем морковь.
 10 Жарим еще 10 минут
11. Солим,
12перчим,
13заливаем кипятком, чтобы покрыло сверху,
14тушим 20 минут на небольшом огне под крышкой.
15. Зубчики чеснока равномерно раскладываем на мясо.
16. Сливаем с риса воду и засыпаем его сверху на мясо.
17Доливаем кипятка столько, чтобы покрыло рис.
18Тушим на медленном огне под крышкой до готовности риса (около часа). При необходимости можно долить немного кипятка.
0,0(0 оценок)
Ответ:
xcp4
xcp4
21.06.2020 05:24

Program asd;

uses crt;

var a,b,c,max:integer; r:real;

begin

 Write('Введите число A: '); 

Readln(a);

 Write('Введите число B: '); 

Readln(b); 

Write('Введите число C: '); 

Readln(c); 

If  a>=b then max:=a

 else 

 max:=b;   

 If c>max then

max:=c; 

r:=a+b+c;

 If (A>B) and (B>C) and (C>0) then

 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);

 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then

 begin   

A:=max;   

 B:=max; 

 C:=max; 

Writeln('A= ',a,' B= ',b,' C= ',c); 

  end   

else   

 Writeln('Symma: ',r);

end

Объяснение:

Program asd;

uses crt;

var a,b,c,max:integer; r:real;

begin

 Write('Введите число A: '); 

Readln(a);

 Write('Введите число B: '); 

Readln(b); 

Write('Введите число C: '); 

Readln(c); 

If  a>=b then max:=a

 else 

 max:=b;   

 If c>max then

max:=c; 

r:=a+b+c;

 If (A>B) and (B>C) and (C>0) then

 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);

 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then

 begin   

A:=max;   

 B:=max; 

 C:=max; 

Writeln('A= ',a,' B= ',b,' C= ',c); 

  end   

else   

 Writeln('Symma: ',r);

end

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота