Сделайте 4 в ход работы , в программе фри паскаль напишите программу

#4

program n4;

var t:integer;

begin

writeln('Введите время(в часах)');

readln(t);

case t of

22,23,24,0,1,2,3,4,5,6:writeln('Доброй ночи!');

7,8,9:writeln('Доброе утро!');

10,11,12,13,14,15,16:writeln('Добрый день!');

17,18,19,20,21:writeln('Добрый вечер!');

end;

end.

ответ

4,0/5

2

SilverWind

   середнячок

   8 ответов

   2.6 тыс. пользователей, получивших

1. вывести на экран 6 раз своё имя

program imya;

const n=6;

var i:integer;

begin

for i:=1 to n do

writeln('ваше имя');

end.

Пояснения: делала с цикла (можно было написать и шесть раз writeln, но так удобнее). Переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). Ещё хочу отметить, что имя вводится по-английски и нельзя терять апострофы ( ' ).

2. program sum;

var sum:integer;

m:array[1..4] of integer;

i:integer;

begin

m[1]:=6

for i:=2 to 4 do begin

m[i]:=m[i-1]+1;

end;

sum:=m[1];

for i:=2 to 4 do begin

sum:=sum+m[i];

end;

writeln(sum);

end.

Пояснения: можно было делать и по-другому, но так тоже верно. Тут использовалось два цикла и массив. А блок-схему сами сделайте)))

3. program n!;

var n:real;

c:integer;

m:array[1..n] of integer;

begin

readln(n)

m[1]:=1;

for i:=2 to n do begin

m[i]:=m[i-1]+1;

end;

c:=m[1]

for i:=1 to n do begin

c:=c*m[i];

end;

writeln('n!',c);

end.

Если что не понятно, пишите, объясню

Объяснение:

сосиска

Как пишется Нурсултан или Нур-Султан правильно столица Казахстана

Казахстан… Какие ассоциации возникают в голове? Степи, огромные сочные луга, легендарные степи, величественные горы, уходящие верхушками в облака, манящие своей неприступностью. Природой Казахстана интересуются и по сей день, путешественники, историки и этнографы. Здесь родились такие известные люди как: Марат Бисенгалиев, Шухрат Миталипов, Олег Янковский. Испокон веков Казахстан был и остается непоколебимым и независимым. В давние времена казахи были кочевниками. Так и появилась любовь к свободе и воле этих народов. Казахи никому никогда не подчинялись и стойко защищали свои границы. Свободолюбивые, открытые казахи в своих песнях и сказаниях воспевали волю, стремление к высоте.