Моя сім’я — це тато, мама, я і моя молодша сестра Наталка. У нас, як і у будь-якій іншій сім’ї, є свої традиції. Наприклад, щонеділі ми всі разом їздимо в гості до бабусі й дідуся. Бабуся до нашого приїзду готує смачний обід, пече печиво. Після обіду ми з сестрою допомагаємо бабусі прибрати зі столу. Потім ми сидимо у вітальні та розмовляємо. Часто дідусь або бабуся розповідають якісь цікаві історії зі свого життя.
Щоліта ми з батьками обов’язково виїжджаємо на природу. У нас є своє улюблене місце для відпочинку на березі річки, біля лісу. Ми приїжджаємо туди на тиждень і ставимо намет. Днем засмагаємо на сонечку, купаємося, прогулюємося лісом. Часто тато ловить у річці рибу, а мама тут же готує її на вогнищі. Я дуже люблю вечірні посиденьки біля багаття з батьками та сестрою.
Звичайно ж, ми завжди разом святкуємо Новий рік і наші дні народження. У ці свята до нас в гості приходять не тільки бабуся з дідусем, а й інші родичі.
Сімейні традиції відіграють дуже важливу роль у житті людей. Вони вчать дітей поважати старших, зберігати історію своєї родини. Завдяки традиціям батьки та діти проводять більше часу разом. А це значить, що сім’я стає більш дружною і міцною.
Объяснение:
Решение Pascal
Delphi/Pascal
program Case5;
var
N,A,B:Integer;
begin
Write('Введите номер действия: ');
Readln(N);
Write('Введите число A: ');
Readln(A);
Write('Введите число B: ');
Readln(B);
Case N of
1: Writeln(A+B);
2: Writeln(A-B);
3: Writeln(A*B);
4: Writeln(A/B);
end;
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Case5;
var
N,A,B:Integer;
begin
Write('Введите номер действия: ');
Readln(N);
Write('Введите число A: ');
Readln(A);
Write('Введите число B: ');
Readln(B);
Case N of
1: Writeln(A+B);
2: Writeln(A-B);
3: Writeln(A*B);
4: Writeln(A/B);
end;
end.
Решение C
C
#include <stdio.h>
int main(void)
{
system("chcp 1251");
int n;
float a,b;
printf("N:") ;
scanf ("%i", &n);
printf("A:") ;
scanf ("%f", &a);
printf("B:") ;
scanf ("%f", &b);
switch (n) {
case 1:
printf("%f\n",a+b) ;
break;
case 2:
printf("%f\n",a-b) ;
break;
case 3:
printf("%f\n",a*b) ;
break;
case 4:
printf("%f\n",a/b) ;
break;
}
return 0;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#include <stdio.h>
int main(void)
{
system("chcp 1251");
int n;
float a,b;
printf("N:") ;
scanf ("%i", &n);
printf("A:") ;
scanf ("%f", &a);
printf("B:") ;
scanf ("%f", &b);
switch (n) {
case 1:
printf("%f\n",a+b) ;
break;
case 2:
printf("%f\n",a-b) ;
break;
case 3:
printf("%f\n",a*b) ;
break;
case 4:
printf("%f\n",a/b) ;
break;
}
return 0;
}
Объяснение:
Печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s.
program test;
uses crt;
var
arr:array[1..8,1..8] of integer;
i,j,cou,pr,s,sum:integer;
begin
clrscr;
randomize;
pr:=1;
s:=7;
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
arr[i,j]:=random(127)+2;
write(arr[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 8 do
for j:=1 to 8 do
begin
if (arr[i,j]>18) and (arr[i,j]<60) then
begin
cou:=cou+1;
arr[i,j]:=0;
end;
if i=j then
begin
pr:=pr+arr[i,j];
write(arr[i,j],' ');
end;
if j=s then
sum:=sum+arr[i,j];
end;
writeln;writeln;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(arr[i,j],' ');
writeln;
end;
writeln;
writeln(cou);
writeln(pr);
writeln(sum);
readln;
end.