Составьте программу по которой компьютер 10 раз запросит

Постройте алгоритм и составьте программу, по которой будет реализован следующий сценарий:компьютер запрашивает номер дня недели, после ввода компьютер сообщает название этого дня.Например, если ввели 1 то выведется фраза «это понедельник» и т.д.

Код к задаче: «Постройте алгоритм и составьте программу, по которой будет реализован следующий сценарий:компьютер запрашивает номер дня недели, после ввода компьютер»

Листинг программы

var ch: char; begin write(‘введите номер дня недели: ‘); readln(ch); write(‘это ‘); case ch of ‘1’ : writeln(‘понедельник’); ‘2’ : writeln(‘вторник’); ‘3’ : writeln(‘среда’); ‘4’ : writeln(‘четверг’); ‘5’ : writeln(‘пятница’); ‘6’ : writeln(‘суббота’); ‘7’ : writeln(‘воскресенье’); end; readln end.

Источник: studassistent.ru

24 Цикл for. Обход элементов функции range Python

Составьте программу по которой компьютер 10 раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введённых чисел массив не использует сделайте три варианта программы используя операторы цикла в while repet и forномер 2 и 4 пожалуйста Подскажите как !

1. program ddg2; var i, j, k: Integer; begin repeat

begin
repeat
begin
WriteLn(число: );
ReadLn(i);
k := k + 1;
j := j + i;
end
until k = 10;
WriteLn(Среднее арифметическое=, j / 10);
end.

2.
program ddg1;
var i,j,k:Integer;
begin
while klt;gt;10 do begin
WriteLn(число: );
ReadLn(i);
k:=k+1;
j:=j+i;
end;
WriteLn(Среднее арифметическое=,j/10);
end.

var
i, j: Integer;

Читайте также:
В какой программе делают смешарики 2д

begin
for i := 1 to 10 do
begin
WriteLn(Введите число:);
readln(i);
end;
j := j + i;
WriteLn(Среднее арифметическое = , j / 10);
end.

4. Таблица умножения:

var
n, m: integer;

begin
for n := 1 to 10 do
for m := 0 to 10 do
WriteLn(n, *, m, =, n * m);
end.

Источник: otvechu.com

Составьте программу по которой компьютер 10 раз запросит ввод любых чисел и в результате выведет сре

begin
repeat
begin
WriteLn(‘число: ‘);
ReadLn(i);
k := k + 1;
j := j + i;
end
until k = 10;
WriteLn(‘Среднее арифметическое=’, j / 10);
end.

2.
program ddg1;
var i,j,k:Integer;
begin
while k<>10 do begin
WriteLn(‘число: ‘);
ReadLn(i);
k:=k+1;
j:=j+i;
end;
WriteLn(‘Среднее арифметическое=’,j/10);

5 Ввод и вывод данных python. Команда input()


end.

var
i, j: Integer;

begin
for i := 1 to 10 do
begin
WriteLn(‘Введите число:’);
readln(i);
end;
j := j + i;
WriteLn(‘Среднее арифметическое = ‘, j / 10);
end.

4. Таблица умножения:

var
n, m: integer;

begin
for n := 1 to 10 do
for m := 0 to 10 do
WriteLn(n, ‘*’, m, ‘=’, n * m);
end.

Источник: uznavalka.pro

Рейтинг
( Пока оценок нет )
Загрузка ...
EFT-Soft.ru