Помогите сочинить красивый стих про Новый год, на русском и на английском) Буду благодарна

Помогите сочинить красивый стих про Новый год, на русском и на английском) Буду благодарна
- Предмет:
  Литература
- Автор:
  harrisonuubh
- 5 лет назад

Ответы 2

Пусть в Новый год уйдут проблемы,Придут удача и успех,Решатся разные дилеммы,Звучит пусть чаще в доме смех.Желаю крепкого здоровья,Побольше ласки и любви!Пусть будет радостным застолье,Мечты пусть сбудутся твои!
- Автор:
  cookie1afp
- 5 лет назад
- 0
Дети водят хоровод,Хлопают в ладоши.Здравствуй Новый год,Ты такой хороший.
- Автор:
  lópezsvkk
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

Запишите уравнения реакций, иллюстрирующих переходы в генетическом ряду: Mg → MgO → Mg(NO)2 → MgOHNO3 → Мg(OН)2
- Предмет:
  Химия
- Автор:
  abby
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Для перевозки груза выделили 4 7 и 8 тонные грузовики. Каждый автомобиль должен сделать только одну ходку. Сколько требуется грузовиков каждого вида для перевозки 44 и т груза?Решение задачи с помощью уравнения прям быстренько помогите
- Предмет:
  Алгебра
- Автор:
  adyson
- 5 лет назад
- Ответов:
  
  2
- Смотреть
помогите найти ошибку в программе на паскаль авс
вот задача: 1)Дан типизированный файл, содержащий символы. Скопировать элементы этого файла в квадратную матрицу размером n×n (если элементов файла недостает, заполнить оставшиеся элементы матрицы символом «точка»). Заменить все столбцы на столбец с минимальной суммой кодов элементов.
вот решение:
type mas2=array[1..20, 1..20] of char;
procedure create(var T: text; var n: byte; var a: mas2);
var i, j: byte;
begin
write('Введите размер матрицы: '); readln(n);
for i:=1 to n do
for j:= 1 to n do
a[i, j]:= '.';
reset(T);
i:=1;
while not seekeof(T) and (i<=n) do
begin
j:=1;
while not seekeof(T) and (j<=n) do
begin
read(T, a[i, j]);
j:= j+1;
end;
i:=i+1
end
end;

procedure sum(var a: mas2);
var i,j,m,n,sum,min,p,k:integer;
t: char;
begin
min:=-maxint;
for j:=1 to m do
begin
p:=0; min:=-maxint-1;
for k:=j to m do
begin
sum:=0;
for i:=1 to n do
sum:=sum+ord(a[i,j]);
if sum begin
min:=sum;
p:=k;
end;
end;
for i:= 1 to n do
begin
t:=a[i,j];
a[i,j]:=a[i,p];
a[i,p]:=t;
end;
end;
writeln(sum:7,' ');
end;

procedure zam(var T: text; var n: byte; var a: mas2);
var i, j: byte;
begin
for i:=1 to n do
for j:= 1 to n do
a[i, j]:= '1';
reset(T);
i:=1;
while not seekeof(T) and (i<=n) do
begin
j:=1;
while not seekeof(T) and (j<=n) do
begin
read(T, a[i, j]);
j:= j+1;
end;
i:=i+1
end
end;

procedure print(const n: byte; const a: mas2);
var i, j: byte;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i, j]:5);
end;
writeln
end;

var T: Text; a: mas2; n: byte; s: string;

begin
write('Введите имя файла: '); readln(s);
assign(T, s);
create(T, n, a);
writeln('Исходная матрица: ');
print(n, a);
sum(a);
zam(T,n,a);
writeln;
writeln;
writeln;
writeln('Результирующая матрица: ');
print(n, a);
end.
- Предмет:
  Информатика
- Автор:
  kamarixvlw
- 5 лет назад
- Ответов:
  
  6
- Смотреть
Преобразуйте схемы уравнения в реакции, укажите тип реакции

а)AL + S - AL2S3
б)B + O2 - B2O3
в)NaNO3 - NaNo2 + O2
г)V2O5 + H2 - V + H20
д)Al2(SO4)3 + BaCl2 - BaSo4 + AlCl3
- Предмет:
  Химия
- Автор:
  kylieparker
- 5 лет назад
- Ответов:
  
  2
- Смотреть

Помогите сочинить красивый стих про Новый год, на русском и на английском) Буду благодарна

Ответы 2

Топ пользователей