1-2-4-3-5 хотя сто процентов гарантировать не могу, путано оно немного
Ответ:
var i: integer;
begin
for i:=10 to 99 do
if (i mod 7 = 0) and (616 mod i = 0) then writeln (i)
end.
Ответ:
Объяснение:
Можно воспользоваться следующим приемом.
1)
В Excel составляем таблицу истинности. Выделим в ней те строки, в которых F=0 (F=ЛОЖЬ) (Рис. 1)
2)
Сравним нашу таблицу с приведенной в задаче. (Рис.2)
Пишем ответ:
Y Z W X
Var
n:integer;
begin
readln(n);
n:=n mod 7;
if n=1 then
writeln('Понедельник');
if n=2 then
writeln('Вторник');
if n=3 then
writeln('Среда');
if n=4 then
writeln('Четверг');
if n=5 then
writeln('Пятница');
if n=6 then
writeln('Суббота');
if n=7 then
writeln('Восресенье');
end.