При поступлении на пункт формирования каждый воин запаса отвечает на вопрос о своей военной специальности написать программу подсчитывающую количество механиков (1) заряжающих (2) наводчиков (3) пусть за день пункт пропускает n человек плзз !
1. a:=10; b:=20; c:=30; 2. При write(a) - выведется на экран просто значение а; При write('a') - выведется просто буква "а"; При write('a=', a) - выведется на экран, например: a=10 3. Чтобы вывести на экран число с фиксированной запятой нужно написать write(a:0:3). a - должна быть вещественного типа. 3 - означает три знака после запятой, поэтому если у вас число 1.2758234, то будет выведено на экран 1.275
4. a = 1; b = 11;
5.
program pl; var a, b : integer; s, p : real; begin writeln("Введите первую сторону прямоугольника:"); readln(a); writeln("Введите вторую сторону прямоугольника:"); readln(b); p = 2*(a+b); s = a*b; writeln("Площадь прямоугольника равна:", s); writeln("Периметр прямоугольника равен:", p); end.
Var
s1,s2,s3,n,i,s:integer;
Begin
writeln('Введите кол-во человек');
readln(n);
for i:=1 to n do begin
writeln('введите специальность: механик-1, заряжающий-2, наводчик-3');
readln(s);
if s=1 then s1:=s1+1;
if s=2 then s2:=s2+1;
if s=3 then s3:=s3+1;
if (s>=4) or (s<=0) then writeln('такой специальности нет');
end;
writeln('механиков-',s1,' заряжающих-',s2,' наводчиков-',s3);
end.
Как-то так это на Паскале. На других не могу увы(