Program mas;
const n=4; // число элементов
var a: array [1..n] of integer; //массив
i, sum: integer; //переменные
begin //начало
sum:=0; // сумма=0
for i:=1 to n do readln(a[i]); //вводим массив
for i:=1 to n do //цикл
if(a[i] mod 2 <>0) then //условие нечетности
begin
writeln(a[i]); //выводим нечетные
sum:=sum+a[i]; //считаем сумму
end;
writeln(sum); //выводим сумму
end. //конец

0 0

4 года назад

В квадратной комнате шириной a и высотой b Есть окно и дверь с размерами c на d , m на n соответсвенна. Вычислите для оклеевания

Яна16

Pascal

Program room;
Var a, b, c, d, m, n, S, o : real;
Begin
Readln(a, b, c, d, m, n);
S = a*b*4;
O = c*d + m*n;
S = S - O;
Writeln(S);
End.

0 0

4 года назад

Из 18 т железной руды выплавляют 10 т железа. сколько железа выплавят из A т руды Помогите пожалуйста 17 баллов программу надо с

Денис870

Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.

0 0

3 года назад

В каких системах счисления 3+4=7? 3+4=10? 3+4=11?

Oleks

1- 10тичная
2-16тиричная
3-двоичная

0 0

4 года назад