Паскаль 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 года назад

Помогите пожалуйста, 10 класс информатика

vlad1610

1. 280
2. 90
3. 339
5. <span>30969</span>

0 0

4 года назад

1. За минимальную единицу измерения количества информации принимают: 1) байт 2) пиксель 3) бит 4) бот 2. Шахматная доска состоит

Айдамир2000

1. 3)

2. 3) номер столбца или строки от 0 до 7, 7 в двоичном 111, 3 бита т.е. поле - это номер строки + номер столбца = 3+3 = 6 бит

3. 4) в байте 8 бит, 32/8

4. 4)

5. 2)

6. 3)

7. 3)

8. 1)

9. 4)

10. 1)

11. 4)

12. 2)

13. 3)

14. 3)

15. 3)

16. 4)

17. переключения между запущенными приложениями

18. C:\DAY\GAMES\tetris.com

19. txt

20. текстовые редакторы

21. C:\MY\GAMES\lines.exe

0 0

4 года назад

Даны x y x если числа положительные то . вычислить их среднее арифметическое ОЧЕНЬ НАДО !!!!!!!!!!

Doc1

Я так понял тебе нужно на паскале, тогда держи:
program dataScience;var x,y,z, sum: integer;beginsum:=0;read(x, y, z); if x=>0 then//проверка на положительность x if y=>0 then//проверка на положительность y if z=>0 then//проверка на положительность z sum:=(x+y+z)/3;//счёт среднего writeln(sum);//вывод среднего арефметического end.

0 0

4 года назад