Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Каковы причина образования Великого княжества Литовского?
Var
s: real;
n: integer;
begin
s := 2500;
n := 0;
repeat
s := 1.19 * s;
Inc(n)
until s >= 5000;
Writeln(n+1)
end.
<em><u>Тестовое решение:</u></em>
5
Нет,не зависит!И вот почему:
На бумаге форма представления информации это текст (символы).А любой текст можно представить значками ЛЮБОГО размера и формы.В электронном носителе этот текст расшифровывается через алгоритм.Но в любом случае это символы.Как-то так.
Program mb;var a,b:integer;beginclrscr;writeln('vvedite a,b');readln(a,b);if a>b then writeln('большим является a')else writeln('большим является b');end.