-
ПОМОГИТЕ СРОЧНО!!!! ЕСТЬ ФОТО СТИХА! ОТВЕТЬТЕ НА ВОПРОС ПОЖАЛУЙСТА
Какую картину рисует поэт в этом стихотворении?
-
Предмет:
Литература -
Автор:
braylonweber - 5 лет назад
-
Ответы 1
-
я считаю что поэт хочет передать всю живописную красоту природы своей родины.
-
Автор:
popcornfa5t - 5 лет назад
-
0
-
-
Добавить свой ответ
Еще вопросы
-
6. Выполни лексическую подготовку. Избегай повторов, заменяй слова на ба
кие по значению.
Синонимы: родник, источник, ключ.
• Выполни орфографическую подготовку. Объясни написание слов.
Р...дн...чок, р...бята, пр...ехали, (в)д...ревню, (на)кр...ю, ключ(?),
лист...я, суч...я, з...сыпали, р...дник, п...ставили, кру...ка, х...лодная,
в...да, забл...стел, т...кли, птич(?)ка, ж...вительная.
-
Предмет:
Русский язык -
Автор:
laylascwv - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
нужно вставить предлоги в предложении, тема гостинная
The coffee table is ... front ... the sofa-
Предмет:
Английский язык -
Автор:
phoenixmichael - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
Сократите эту программу пж:
ну там мб действия нахождения максимума одной процедурой сделать... хз крч помогите
program zelda;
uses crt;
const z=100;
var
u1,u2,u3:array[1..z]of integer;
i,max1,max2,max3:integer;
procedure ch1;
var n,i,max1,max2,max3:integer;
begin
n:=7;
for i:=1 to n do
u1[i]:=random(100);
for i:=1 to n do
writeln('Элементы массива: ',u1[i]);
max1:=u1[i];max2:=u1[i];max3:=u1[i];
for i:=1 to n do
if u1[i]>max1 then begin
max1:=u1[i];
end;
for i:=1 to n do
if (u1[i]>max2) and (u1[i]<>max1) then begin
max2:=u1[i];
end;
for i:=1 to n do
if (u1[i]>max3) and (u1[i]<>max1) and (u1[i]<>max2) then begin
max3:=u1[i];
end;
writeln('max1: ',max1,' max2: ',max2,' max3: ',max3);
end;
procedure ch2;
var n,i,ind,max1,max2,max3:integer;
begin
n:=13;
for i:=1 to n do
u2[i]:=random(100);
for i:=1 to n do
writeln('Элементы массива: ',u2[i]);
ind:=0;
max1:=u2[i];max2:=u2[i];max3:=u2[i];
for i:=1 to n do
if u2[i]>max1 then begin
max1:=u2[i];
end;
for i:=1 to n do
if (u2[i]>max2) and (u2[i]<>max1) then begin
max2:=u2[i];
end;
for i:=1 to n do
if (u2[i]>max3) and (u2[i]<>max1) and (u2[i]<>max2) then begin
max3:=u2[i];
end;
writeln('max1: ',max1,' max2: ',max2,' max3: ',max3);
end;
procedure ch3;
var n,i,max1,max2,max3:integer;
begin
n:=17;
for i:=1 to n do
u3[i]:=random(100);
for i:=1 to n do
writeln('Элементы массива: ',u3[i]);
max1:=u3[i];max2:=u3[i];max3:=u3[i];
for i:=1 to n do
if u3[i]>max1 then begin
max1:=u3[i];
end;
for i:=1 to n do
if (u3[i]>max2) and (u3[i]<>max1) then begin
max2:=u3[i];
end;
for i:=1 to n do
if (u3[i]>max3) and (u3[i]<>max1) and (u3[i]<>max2) then begin
max3:=u3[i];
end;
writeln('max1: ',max1,' max2: ',max2,' max3: ',max3);
end;
begin
ch1;
ch2;
ch3;
end.-
Предмет:
Информатика -
Автор:
kaylin - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
помогите пожалуйста решить 3 системы уравнений, заранее спасибо!!!
-
Предмет:
Алгебра -
Автор:
javier2my8 - 5 лет назад
-
Ответов:
6 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35894 -
Askold
2792 -
Pikachu
2224 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1156 -
Poinntt
946 -
Bars
930 -
Queenmagic18
754
How much to ban the user?
1 hour
1 day
100 years