Перевести программы с языка C + + на язык Паскаль:

1.

int a, b;

cin " a"b;

a = 2 * a;

if (a >b) {a = 2*b; }

else if (a else if (a==b) {a = a + b; }

cout " a;

2.

int x = 64;

int y = 40;

while (x!=y) {

if (x>y) {

x = x - y;

}else{

x = y-x;

}

}

dct

Question

Информатика

Иосафат

22 апреля, 03:36

Перевести программы с языка C + + на язык Паскаль:

1.

int a, b;

cin " a"b;

a = 2 * a;

if (a >b) {a = 2*b; }

else if (a else if (a==b) {a = a + b; }

cout " a;

2.

int x = 64;

int y = 40;

while (x!=y) {

if (x>y) {

x = x - y;

}else{

x = y-x;

}

}

dct

+2

Ответы (1)

Знаете ответ на вопрос?

Ванютя · Answer 1

1. Полноценная программа

var a, b:integer;

begin

Read (a, b) ;

a:=2*a;

if a >b then a:=2*b

else

if a0 then begin if a=b then a:=a+b end;

Writeln (a)

end.

2. Фрагмент программы

var x, y:intereg;

begin

x:=64; y:=40;

while x=y do

if x>y then x:=x-y else x:=y-x;

Перевести программы с языка C + + на язык Паскаль:1.int a, b;cin " a"b;a = 2 * a;if (a >b) {a = 2*b; }else if (a else if (a==b) {a = a + b; }cout " a;2.int x = 64;int y = 40;while (x!=y) {if (x>y) {x = x - y;}else{x = y-x;}}dct