{Задано некоторое целое число N. Выведите на экран название геометрической фигуры (объекта), имеющей N вершин.} program z1; var n:integer; begin Writeln('Введите количество вершин:'); read(n); if n=3 then writeln('Треугольник.'); if n=4 then writeln('Квадрат.'); if n>=5 then writeln (n,'-угольник.'); end.
Var x, i, h1, h2, h3, h4, h5, h6, s1, s2: integer; begin readln (x); h1 := x div 100000; h2 := x mod 100000 div 10000; h3 := x mod 10000 div 1000; h4 := x mod 1000 div 100; h5 := x mod 100 div 10; h6 := x mod 10; s1 := h1 + h2 + h3; s2 := h4 + h5 + h6; if (s1 = s2) then writeln('Счастливый') else writeln('Несчастный:)'); readln; end.
Вот, ошибка в целочисленном делении) Советую такое на листочке расписывать: 123321 и обводить что нужно взять, что в каком порядке откидывать...)
1) var a,b,a1,b1:real; var s,s1:real; begin WriteLn('Введите все катеты через пробел:'); Read(a,b,a1,b1); s:=a/2*b; s1:=a1/2*b1; WriteLn(s); WriteLn(s1); if s = s1 then WriteLn('Треугольники равновелики') else if s>s1 then WriteLn('Площадь первого треугольника больше на '+(s-s1)) else WriteLn('Площадь второго треугольника больше на '+(s1-s)); end.
2) var a,b:Integer; var arr:array of char; begin arr:=ReadString().ToCharArray(); for var i:= 1 to 6 do if(i<4) then a+= strtoint(arr[i-1]) else b+= strtoint(arr[i-1]); if a=b then WriteLn('Билет счастливый') else WriteLn('Билет не счастливый'); end.
program z1;
var n:integer;
begin
Writeln('Введите количество вершин:');
read(n);
if n=3 then
writeln('Треугольник.');
if n=4 then writeln('Квадрат.');
if n>=5 then
writeln (n,'-угольник.');
end.