4 года назад

Как пейзаж передаёт внутреннее состояние человека в стихотворении А.А. Фета "Еще майская ночь" ? Помогите!

1 ответ:

Alisee [2.8K]4 года назад

0 0

В каждом своем произведении Фет изображает различные явления природы, которые по-своему прекрасны. В 1857 году поэт написал стихотворение «Еще майская ночь…», которое относится к большому циклу лирических пейзажей.

Название произведения говорит само за себя и определяет основную идею стихотворения. Лирический герой восторгается чудесной майской ночью, вызывающей у него целую бурю восторженных эмоций: «Какая ночь! На всём какая нега!»

Читайте также

Дана прямоугольная матрица. Написать программу считающую нули этой матрицы. На языке Паскаль

Alexandra55454

Var mas:array [1..100, 1..100] of integer;i,j,n,m,sum:integer;beginsum:=0;writeln ('n');read (n);writeln ('m');read (m);for i:=1 to n do beginfor j:=1 to m do beginwriteln ('[',i,',',j,']');readln (mas[i,j]);end;end;for i:=1 to n do beginfor j:=1 to m do beginif mas[i,j]=0 then sum:=sum+1;end;end;writeln ('Kilkist nuliv = ',sum);end.
Как то так, если что не понятно, спрашивай.

0 0

4 года назад

Сделайте срочно ребята на баллы не обижу

JimmyMan

Ответ останется неизменным

0 0

4 года назад

Найти сумму четных двухзначных чисел цикл с предусловием

James222

procedure summa(s, num: integer);

begin

s:= s + num;

end;

var i, sum: integer;

begin

sum:= 0;

for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);

write(sum);

end.

0 0

4 года назад

Написать код к заданию: Напишите программу, которая будет определять наибольшую цифру во введенном трехзначном числе.

Irina2010 [435]

Var
a: integer;
a1, a2, a3, max: byte;
begin
readln(a);
a1 := a div 100;
a2 := a mod 100 div 10;
a3 := a mod 10;
max := a1;
if (a2 > max) then
max := a2;
if (a3 > max) then
max := a3;
writeln(max);
end.

0 0

4 года назад

Помогите пожалуйста,задание по информатике Написать программу,осуществляющую ввод значений массива с клавиатуры(10 элементов) и

Слава1974 [14]

Программа:
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Введите массив:');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
for i:=1 to n do write(a[i]:4);
writeln;
end.

Пример:
Введите массив:
a[1] = 15
a[2] = -8
a[3] = 24
a[4] = -31
a[5] = 45
a[6] = -61
a[7] = 72
a[8] = 19
a[9] = 55
a[10] = -28

15 -8 24 -31 45 -61 72 19 55 -28

0 0

3 года назад