3. Знайдіть і виправте помилки в програмі. Придумайте до неї умову задачі. Program Z1;
Uses CRT;
Var day:boolean;
Clrscr;
Begin
Write (‘Введіть номер дня тижня:’);
Readln (day);
Case d of :
1: write (‘Понеділок’);
2 :write (‘Вівторок’);
3: write (‘Середа’);
4: write (‘П’ятниця’);
5: write (‘Четвер’);
6: write (‘Субота’);
7: write (‘Неділя’);
End;
Readln
End.

artyomortega    1   05.04.2021 15:23    0