1 Назовите элементы программы Microsoft Access? 2 Для чего нужен за отчет, форма? 3 Как создать форму? 4 Что такое таблица? 5 Что такое Форма? 6 Что такое За Что такое Отчет? 8 Что такое гиперссылка
Приготовление плова 1. Свинину моем, режем на небольшие кусочки. 2. Рис моем, заливаем водой. 3. Лук чистим, режем полукольцами. 4 Морковь чистим, режем соломкой. 5. В казане разогреваем растительное масло, 6 поджариваем лук. 7 добавляем мясо 8 обжариваем на сильном огне со всех сторон. 9 добавляем морковь. 10 Жарим еще 10 минут 11. Солим, 12перчим, 13заливаем кипятком, чтобы покрыло сверху, 14тушим 20 минут на небольшом огне под крышкой. 15. Зубчики чеснока равномерно раскладываем на мясо. 16. Сливаем с риса воду и засыпаем его сверху на мясо. 17Доливаем кипятка столько, чтобы покрыло рис. 18Тушим на медленном огне под крышкой до готовности риса (около часа). При необходимости можно долить немного кипятка.
1. Свинину моем, режем на небольшие кусочки.
2. Рис моем, заливаем водой.
3. Лук чистим, режем полукольцами.
4 Морковь чистим, режем соломкой.
5. В казане разогреваем растительное масло,
6 поджариваем лук.
7 добавляем мясо
8 обжариваем на сильном огне со всех сторон.
9 добавляем морковь.
10 Жарим еще 10 минут
11. Солим,
12перчим,
13заливаем кипятком, чтобы покрыло сверху,
14тушим 20 минут на небольшом огне под крышкой.
15. Зубчики чеснока равномерно раскладываем на мясо.
16. Сливаем с риса воду и засыпаем его сверху на мясо.
17Доливаем кипятка столько, чтобы покрыло рис.
18Тушим на медленном огне под крышкой до готовности риса (около часа). При необходимости можно долить немного кипятка.
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