Эта программа действительна при условии, что утро начинается в 6, день в 12, вечер в 18, а ночь в 24 и продолжается до 6. Написала через if, так как не знакома с case, буду рада, если кто-нибудь мне расскажет)
var a: integer; begin read(a); if (a > 5) and (a <= 11) then write('Утро '); if (a > 11) and (a <= 17) then write('День '); if (a > 17) and (a <= 23) then write('Вечер'); if (a = 24) or (a < 6) then write('Ночь'); end.
{ Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3). Найти площадь треугольника (используя формулу Герона) } uses crt; var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real; begin clrscr; write('x1=');readln(x1); write('y1=');readln(y1); write('x2=');readln(x2); write('y2=');readln(y2); write('x3=');readln(x3); write('y3=');readln(y3); a:=sqrt(sqr(x1-x2)+sqr(y1-y2)); b:=sqrt(sqr(x2-x3)+sqr(y2-y3)); c:=sqrt(sqr(x3-x1)+sqr(y1-y3)); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); write('s=',s); readln; end. формула герона! А так я думаю эти задачки очень даже не сложные, только формулы надо знать ! Удачи!
var a: integer;
begin
read(a);
if (a > 5) and (a <= 11) then
write('Утро ');
if (a > 11) and (a <= 17) then
write('День ');
if (a > 17) and (a <= 23) then
write('Вечер');
if (a = 24) or (a < 6) then
write('Ночь');
end.