ПЕРЕПИСАТЬ КОД С ЯЗЫКА PASCAL в C++ 1: var k, n, i, sum:integer; s, t:string; begin s := ''; sum:=0; write('Введите количество пассажиров: '); readln(n); for i:=1 to n do begin k:=random(-140)+150; str(k, t); s:=s+t+' '; sum:=sum+k; end; if (sum>=20) and (sum<=750) then write('OK : ', s) else if sum < 20 then write('Недогруз: ', s) else write('Перегруз: ', s); end. 2. var k, n, i, sum:integer; begin i:=1; sum:=0; write('Введите количество чисел: '); readln(n); while i <= n do begin write('Введите ', i, '-е число: '); readln(k); if k > 1000 then writeln('Число не должно превышать 1000!') else begin if (k div 10 <> 0) and (k div 100 = 0) then begin sum:=sum + (k div 10); end; inc(i); end; end; write(sum); end. 3. var k, n:integer; begin write('Введите количество метров: '); readln(k); write('Введите количество недель: '); readln(n); write(((n*7) div 5) * 50 + k); end.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Создайте и заполните свою таблицу на тему "Достопримечательности моего родного края
Автор: МАМОНОВА-андрей
Із чого починається проектування бази даних
Автор: Городничий_Коновалова384
Конспект на тему «Формы представления информационных моделей
Автор: maxborod
Определить мощность алфавита, если сообщение, содержащее 40 символов, занимает 30 байт.
Автор: milanmilan8672
var
t:boolean;
d:integer;
begin
t := true;
d := 2;
while t and (d*d <= x) do
begin
if x mod d = 0 then
t := false;
d := d + 1
end;
prime := t
end;
function order(x:integer):boolean;
var
t:boolean;
d:integer;
begin
d := -1;
repeat
t := x mod 10 > d;
d := x mod 10;
x := x div 10
until not t or (x = 0);
order := t
end;
var
t:boolean;
i,k,n:integer;
begin
t := false;
read(k,n);
for i := k to n do
if prime(i) then
if order(i) then
begin
write(i,' ');
t := true
end;
if not t then
write(0)
end.