Поделитесь своими знаниями, ответьте на вопрос:
Как показало исследование, узор является симпатичным, если в нем нигде не встречается квадрата2х2 метра, полностью покрытого плитками одного цвета. на рисунке 1 показаны примеры различныхсимпатичных узоров, а на рисунке 2 – несимпатичных.для составления финансового плана директору необходимо узнать, сколько клиентов он сможетобслужить, прежде чем симпатичные узоры данного размера закончатся. ему! формат входных данныхна первой строке входного файла находятся два положительных целых числа, разделенныепробелом - мим (15 м . n < 30 формат выходных данныхвыведите в выходной файл единственное число — количество различных симпатичных узоров, которые можно выложить во дворе размера m x n. узоры, получающиеся друг из друга сдвигом, поворотом или отражением считаются различными.примеры: f.outf.in142232233
begin
writeln('Введите количество часов в первом моменте времени');
readln(a);
writeln('Введите количество минут в первом моменте времени');
readln(b);
writeln('Введите количество секунд в первом моменте времени');
readln(c);
writeln('Введите количество часов во втором моменте времени');
readln(a1);
writeln('Введите количество минут во втором моменте времени');
readln(b1);
writeln('Введите количество секунд во втором моменте времени');
readln(c1);
s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1);
writeln(s,' секунд');
end.
2)var a,b:integer;
s:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a+b) mod 2 =0 then s:=a*b
else s:= a/b;
writeln(s);
end.
3)var b,s,n:real;
begin
writeln('Введите количество часов');
readln(n);
n:=n/3;
s:=2*power(2,(n-1));
writeln(s,' амёб');
end.
4)var a:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do
begin
a[i]:=random(11);
writeln('a[',i,']= ',a[i]);
end;
end.