Var a, b, c: real; readln(a); readln(b); c := 0; if a > b then begin c := a; a := 2*a*b; b := (c + b) / 2; end else if a < b then begin c := a; a := (a + b) / 2; b := 2* a*b; end else writeln('Числа равны'); writeln(' a = ', a, 'b = ', b);
кажется так но чето могу напутать, не сидел с паскалем года 3
write('a = '); readln(a); write('b = '); readln(b); if (a>b) then begin t:=a; a:=2*a*b; b:=(t+b)/2; end; if (a<b) then begin t:=b; b:=2*a*b; a:=(t+a)/2; end; if(a=b) then writeln('Числа равны') else writeln('a = ', a, ', b = ', b); end.
Например, если тебе сказали, что вечеринка будет в субботу, а на самом деле она назначена на пятницу; если тебе сказали, что поезд отъезжает в 18.00, а его отъезд запланирован в 17.30; если тебе сказали, что день рождения у человека 17 февраля, а оно 19 февраля; если тебе сказали, что у митохондрий нет ДНК (хотя есть); - тебе сообщили недостоверную информацию, т.е. не соответствующую действительности. Ты можешь написать о любом подобном случае.
P.S.: если тебе к примеру сказали, что вечеринка в субботу, и она планировалась на субботу, однако потом её перенесли, то такая информация являлась достоверной, но неустойчивой(меняющейся во времени)
var a: array[1..m, 1..n] of integer; i, j, im, jm, mx, e: integer;
begin Randomize; mx := -1000; for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(100) - 50; e := abs(a[i, j]); if mx < e then begin mx := e; im := i; jm := j end; write(a[i,j]:4) end; writeln end; writeln; writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx) end.
readln(a);
readln(b);
c := 0;
if a > b then
begin
c := a;
a := 2*a*b;
b := (c + b) / 2;
end
else
if a < b then
begin
c := a;
a := (a + b) / 2;
b := 2* a*b;
end
else
writeln('Числа равны');
writeln(' a = ', a, 'b = ', b);
кажется так
но чето могу напутать, не сидел с паскалем года 3