Решить в паскале 1) составить программу для того, чтобы компьютер, используя генератор случайных чисел, записал на экране случайное число, значение которого лежит в пределах от 5 до 6. 2) введено 3-значное число. вывести число в зеркальном отображении. 3)введенное 4-значное число изменить так, чтобы 1-3 и 2-4 цифры поменялись местами.

206

326

Посмотреть ответы 2

Ответы на вопрос:

Сонечка2155

Информатика

4,6(87 оценок)

Program task1; var a : integer; begin randomize; a: = 0; while (a < > 5) and (a < > 6) do a: = random(7); writeln(a); end.program task2; var digit, i : integer; digitstr : string; begin readln(digit); str(digit,digitstr); for i: = length(digitstr) downto 1 do write(digitstr[i]); end.program task3; var digit : integer; newdigit, digitstr : string; begin readln(digit); str(digit,digitstr); newdigit: = digitstr[3] + digitstr[4] + digitstr[1] + digitstr[2]; writeln(newdigit); end.

Wakawak

Информатика

4,8(78 оценок)

Program qq; var a, b, c, p: real; begin write( 'введите значения сторон треугольника: ' ); readln(a,b,c); р : = a+b+c; write( 'периметр треугольника равен: ', p); end.