Question

Помогите пожалуйста с двумя задачами на паскале: 1)Составить блок-схему и программу подсчета суммы вводимых элементов до первого положительного числа на базе цикла с постусловием. 2)Даны 10 чисел, вывести те из них, которые являются полными квадратами. Составить блок-схему и программу. Очень буду благодарен

Answer 1

Ответ:

Объяснение:

1) program z1;

var a,sum:integer;

begin

a:=0;

sum:=0;

while (a<0) or (a=0) do

begin

sum:=sum+a;

readln(a);

end;

writeln(sum);

end.

2) program z2;

const N = 10;

var i:integer;

var b,d:real;

var a:array[1..N] of integer;

begin

for i:=1 to N do

readln (a[i]);

for i:=1 to N do

write(a[i]:4);

writeln;

for i:=1 to N do

begin

b:=sqrt(a[i]);

d:=frac(b);

if d=0 then

write (a[i]:4);

end;

end.

Answer 2

Конечно, я могу помочь вам с этими задачами. Вот решение каждой задачи на языке Паскаль:

1. Блок-схема и программа для подсчета суммы вводимых элементов до первого положительного числа:

mathematicaCopy code
{Блок-схема}
[Ввод элемента]
 |
 V
[Если элемент <= 0]
 |
 V
[Сумма := Сумма + Элемент]
 |
 V
[Повторить]

{Программа}
program SumOfElements;
var
  Element, Sum: Integer;
begin
  Sum := 0;
  
  repeat
    Write('Введите число: ');
    Readln(Element);
    
    if Element <= 0 then
      Sum := Sum + Element;
  until Element > 0;
  
  Writeln('Сумма введенных элементов до первого положительного числа: ', Sum);
end.

2. Блок-схема и программа для вывода полных квадратов из 10 чисел:

mathematicaCopy code
{Блок-схема}
[Ввод числа]
 |
 V
[Если число является полным квадратом]
 |
 V
[Вывод числа]
 |
 V
[Повторить]

{Программа}
program PrintSquareNumbers;
var
  Number, Count: Integer;
begin
  Count := 0;
  
  while Count < 10 do
  begin
    Write('Введите число: ');
    Readln(Number);
    
    if Sqrt(Number) = Round(Sqrt(Number)) then
    begin
      Writeln('Число ', Number, ' является полным квадратом.');
    end;
    
    Count := Count + 1;
  end;
end.

Надеюсь, эти решения помогут вам! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.