Паскаль ABC.net версии 3.3.5

var
n: word;

begin
write('Введите номер дня недели: ');
readln(n);
case n of
    1: writeln('Понедельник');
    2: writeln('Вторник');
    3: writeln('Среда');
    4: writeln('Четверг');
    5: writeln('Пятница');
    6: writeln('Суббота');
    7: writeln('Воскресенье');
else writeln('Нет такого номера дня недели');
end;
end.

0 0

3 года назад

Отнесите следующие периферийные устройства к устройствам ввода, вывода или хранения информации. 1)Монитор 2)Принтер 3)Микрофон 4

jKeolot

Ввод: микрофон, вебкамера, тачпад, сканер, клавиатура

Вывод: монитор, принтер, колонки, плоттер

Хранение: юсб-накопитель, жесткий диск

0 0

4 года назад

Нужно сделать в Паскале:Составьте программу, составьте программу, которая вычисляет произведение чисел от 1 до n. Где n вводится

маша009 [7]

Var p,i, n:integer;

begin
p:=1;
writeln('Введи n');
readln(n);
if n>=1 then
begin
for i:=1 to n do
p:=p*i;
writeln(p);
end else writeln('n>=1');
end.

0 0

4 года назад