else: print(" today is weekday') Задание No6 [5] Напишите код программы который запрашивает у пользователя двухзначное число, если число четное то программа находит сумму цифр этого числа и выводит сообщение «Число четное», иначе находит произведения цифр двухзначного числа и выводит сообщение «Число нечетное». Формула для нахождения суммы цифр двухзначного числа: Sum=n/10+n%10 or Sum=n//10 * n%10
Program Markovsp1;
uses crt;
const
eps=0.001;
var
t,s:real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда ');
writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл repeat');
writeln();
s:=0;
i:=1;
repeat
t:=1/((i)*(i));
s:=s+t;
//writeln('i=',i,' T=',t:0:6,' S=',s:0:6);
i:=i+1;
until abs(t)<eps;
writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.
Program Markovsp2;
uses crt;
const
eps=0.001;
var
t,s:real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда ');
writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл while');
writeln();
s:=0;
i:=1;
t:=1;
while t>eps do
begin
t:=1/(i*i);
s:=s+t;
//writeln('i=',i,' T=',t:0:6,' S=',s:0:6);
i:=i+1;
end;
writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.
Азбука Морзе
1) и .. н -. ф ..-. о --- р .-. м -- а .- т - и .. к -.- а .-
2) с ... к -.- о --- р .-. о --- к -.- а .- н -. и .. к -.- у ..- л .-.. ы -.--
3) с ... е . г --. о --- д -.. н -. я .-.- я .-.- с ... д -.. а .- ю .-- э ...---... к -.- з --.. а .- м -- е . н -.
Таблица двоичного кода
1) информатика 11001000 11101101 11110100 11101110 11110000 11101100 11100000 11110010 11001000 11101010 11100000
2) скоро каникулы 11110001 11101010 11101110 11110000 11101110 11101010 11100000 11101101 11001000 11101010 1111011 11101011 11111011
3) сегодня я сдаю экзамен 11110001 11100101 11100011 11101110 11100100 11101101 11111111 11111111 11110001 11100100 11100000 11111110 11111101 11101010 11100111 11100000 11101100 11100101 11101101