У сім'ї завжди дбають один про одного і допомагають у скрутні хвили. Я дуже люблю свою родину і також я люблю свій рідний народ, тому іноді уявляю що було б, якби всі українці були, як одна сім'я.
Зважаючи на те що Українці - дуже щирий,гостинний,доброзичливий,терплячий народ, нове життя стало б світлим і добрим. Були б кращі умови і панувало б порозуміння. Люди б вище цінував працю інших і самі намагались зробити щось краще, так як це принесе користь іншим. Ми б разом турбувались про стабільність держави і спільними зусиллями виводили її на нову арену всесвітнього визнання. Згуртована праця до б зміцнити національну гідність і до країні з економічними проблемами.
Багато незгод випало на долю українців. На сьогоднішній день налічується велика кількість емігрантів, жебраків та безхатченків. Хіба б було таке у щасливій родині? Де віра в те,що якщо ти десь оступився, то людина завжди протягне тобі руку до Не будучи сім'єю ми не відчуваємо того добробуту і підтримки, про яку мріємо! Тому будьмо щирими і привітними, тому що віра у краще майбутнє, підкріплена активними діями зближує народ і перетворюю в одну міцну сім'ю.
USES Crt;
VAR
A:ARRAY[0..25] OF INTEGER;
I: BYTE; S,K: INTEGER; P: REAL;
BEGIN
ClrScr; Randomize;
{ Заполнение массива случайными числами }
WriteLn(' Значения элементов массива');
FOR I:=1 TO 25 DO Begin
A[I]:=Random(10)-3; Write(A[I]:3);
End; WriteLn;
S:=0; K:=0; P:=1;
FOR I:=1 TO 25 DO Begin
S:=S+A[I]; { сумма элементов массива }
IF A[I]>0 THEN P:=P*A[I]; { произведение положительных элементов массива }
IF A[I]=0 THEN K:=K+1; { количество нулевых элементов массива }
End;
WriteLn(' Сумма элементов массива = ',S);
WriteLn(' Произведение положительных элементов массива = ',P:0:0);
WriteLn(' Количество нулевых элементов массива = ',K);
END.
USES Crt;
VAR
X, Y, Z: INTEGER;
BEGIN
ClrScr;
WriteLn('Введите три целых числа');
ReadLn(X,Y,Z);
IF (X>=1) AND (X<=3) Then WriteLn('Первое число принадлежит заданному интервалу')
Else WriteLn('Первое число не принадлежит заданному интервалу');
IF (Y>=1) AND (Y<=3) Then WriteLn('Второе число принадлежит заданному интервалу')
Else WriteLn('Второе число не принадлежит заданному интервалу');
IF (Z>=1) AND (Z<=3) Then WriteLn('Третье число принадлежит заданному интервалу')
Else WriteLn('Третье число не принадлежит заданному интервалу');
END.
Що було б, якби всі українці були, як одна сімя
У сім'ї завжди дбають один про одного і допомагають у скрутні хвили. Я дуже люблю свою родину і також я люблю свій рідний народ, тому іноді уявляю що було б, якби всі українці були, як одна сім'я.
Зважаючи на те що Українці - дуже щирий,гостинний,доброзичливий,терплячий народ, нове життя стало б світлим і добрим. Були б кращі умови і панувало б порозуміння. Люди б вище цінував працю інших і самі намагались зробити щось краще, так як це принесе користь іншим. Ми б разом турбувались про стабільність держави і спільними зусиллями виводили її на нову арену всесвітнього визнання. Згуртована праця до б зміцнити національну гідність і до країні з економічними проблемами.
Багато незгод випало на долю українців. На сьогоднішній день налічується велика кількість емігрантів, жебраків та безхатченків. Хіба б було таке у щасливій родині? Де віра в те,що якщо ти десь оступився, то людина завжди протягне тобі руку до Не будучи сім'єю ми не відчуваємо того добробуту і підтримки, про яку мріємо! Тому будьмо щирими і привітними, тому що віра у краще майбутнє, підкріплена активними діями зближує народ і перетворюю в одну міцну сім'ю.