Задать вопрос!

Задать вопрос!

Все категории

4 года назад

5

Заданы два числа х, у. Переменной m присвоить значение 1, если х<у, -1, если х>у и 0 если х=у.

Информатика

1 ответ:

васильевич58лет4 года назад

0 0

var x,y,m:integer;

BEGIN

readln(x,y);

if (x=y) then m:=0;

if (x>y) then m:=-1;

if (x<y) then m:=1;

writeln(m);

end.

Читайте также

30. При выключении компьютера вся инфор-мация стирается а) в оперативной памяти; б) на жестком диске; в) на CD-ROM диске.

Nina Niaierl

В оперативной памяти.

0 0

4 года назад

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирован

Елена35

На языке программирования Pascal выведет число 55.

0 0

4 года назад

Ответьте на 8 и 9 вопрос пожалуйста. Совсем не понимаю. В 8 Закодированное слово и выбираете из вариантов А Б В Г В 9 выберете.

Sunjunared [2]

9 задание точно г
8 раскодированное слово (знак) скорее всего ответ б

0 0

4 года назад

Составьте программу,которая выводит на экран нечетные числа в диапазоне от 20 до 50

chelfu [1]

СLS
FOR i=20 TO 50
IF INT(i/2) <> (i/2) THEN PRINT i
NEXT i
END

0 0

4 года назад

Прочитать ещё 2 ответа

Дан текстовый файл с именем input.txt в первой строке которого записано натуральное число N , а во второй строке N целых чисел.

Светлана Романович [732]

Если программа нужна на паскале и если считать, что числа, кратные и 100 и 11 записываются в оба файла, то программа будет такой:
var t,t1,t2,t3:text;n,a,i:integer;
begin
Assign(t,'input.txt');reset(t);
Assign(t1,'a.txt');rewrite(t1);
Assign(t2,'b.txt');rewrite(t2);
Assign(t3,'c.txt');rewrite(t3);
readln(t,n);
for i:=1 to n do
begin
read(t,a);
if a mod 100 = 0 then write(t1,a,' ');
if a mod 11 = 0 then write(t2,a,' ');
if (a mod 100<>0)and(a mod 11<>0) then write(t3,a,' ');
end;
Close(t);Close(t1);Close(t2);Close(t3);
<span>end.</span>

0 0

4 года назад