1) Вот первая задачка:

uses crt;
var a, b, c : real;

begin
ClrScr;
Write(' a = '); ReadLn(a);
Write(' b = '); ReadLn(b);
c:=sqrt(a*a+ b*b);
WriteLn(' c = ', C:4:2);
ReadLn;
end.

2) А вот задачка 2

uses crt;
var s, s0 : real;
     i: integer;
begin
ClrScr;
S0:=3;
i:=1;
While S0<20 do
    begin
     i:=i+1;
     S:=S0*(1+0.05);
     S0:=S+S0;
    end;
WriteLn(' Day = ', i);
ReadLn;
end.

3) А вот и третья задачка подоспела....

uses Crt;
const n=15;
type Mas = array [1..n] of real;
var A: Mas;
     i: integer;
     Sum: real;
begin
ClrScr;

Sum:=0;
for i:=1 to n do
begin
      Write(' A[',i, '] = ' ) ; ReadLn (A[i]);
      Sum:=Sum+A[i];
end;

WriteLn (' Massiv: ');
for i:=1 to n do
      Write (A[i]:6:2,'    ');

WriteLn; WriteLn;
WriteLn ('Sum = ', Sum:6:2);

ReadLn;
end.

0 0

1 год назад

Из числа 358 сделать двойничное исчисление

Ильдар Бикмаметов

101100110 будет если 358 перевести в двоичную

0 0

4 года назад

Составьте алгоритм и программу вывода на экран вертикального столбика чисел:0,1,2,3,4,...17

woodii

Program ttt;
var i:integer;
begin
for i:=0 to 17 do
writeln(i);
end.

0 0

4 года назад