Категория
Информатика, опубликовано 20.03.2019 13:00

Написать программу в pascal. даны два числа. вывести большее налево из них. ! заранее !

Ответы

Ответ
Ответ оставил: Гость
Var a,b: integer; begin readln(a,b); if a> b then write(a) else write(b) end.
Ответ
Ответ оставил: Гость
Нет нельзя в инете посмотри
Ответ
Ответ оставил: Гость
81920 килобайт 
или же 81 мб.
Ответ
Ответ оставил: Гость
1)program wk;
var mas:array [1..5]of integer;i:integer;
begin 
 for i:=1 to 5 do 
  mas[i]:=Random(121)-64; 
for i:=1 to 5 do 
 Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   p:=p*mas[i]; 
  end;
 Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   if (i mod 2 <>0)then p:=p*mas[i]; 
  end;
 Writeln(p)
end.


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
Вопрос
Информатика, опубликовано 09.01.2019 16:01
Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 1 на вопрос по информатике: Написать программу в pascal. даны два числа. вывести большее налево из них. ! заранее !... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube