program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var i,x,y,z, dwa,tri,shetire,pati:Integer;
begin
Writeln('student Fediya=');
Readln(i);
Writeln('student Sungat=');
readln(x);
Writeln('student Alex=');
readln(y);
Writeln('student Halif=');
Readln(z);
case i of
2: Inc(dwa);
3: Inc(tri);
4: Inc(shetire);
5: Inc(pati);
end;
begin
case x of
2: Inc(dwa);
3: Inc(tri);
4: Inc(shetire);
5: Inc(pati);
end;
end;
begin
case y of
2: Inc(dwa);
3: Inc(tri);
4: Inc(shetire);
5: Inc(pati);
end; end;
begin
case z of
2: Inc(dwa);
3: Inc(tri);
4: Inc(shetire);
5: Inc(pati);
end;
end;
WriteLn(#13#10'dwa: ', dwa, #13#10'tri: ', tri, #13#10'shetire: ', shetire, #13#10'pati: ', pati);
ReadLn;
{ TODO -oUser -cConsole Main : Insert code here }end.<span>
</span>
Program ploshad;
uses crt;
var a,b,c:real;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
If (a<=0)or(b<=0) then
write('Сторона не может быть отрицательной, либо равна нулю')
else
c:=a*b;
writeln('Площадь квадрата, с заданными параметрами равна - ',c);
c:=a*b/2;
writeln('Площадь прямоугольного треугольника, с заданными параметрами равна - ',c);
<span>end.
Это лишь для квадрата и прямоугольного треугольника :-)</span>
Архитектура системной платы определяется набором микросхем (chipset) – это одна или несколько микросхем, таймеры, система управления специально разработанная для "обвязки" микропроцессора.
Треугольников 40
и 10 квадратов
Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.