#include <iostream>
#include <math.h>
using namespace std;
int main() {
cout.precision(10);
double x, y, z;
cin >> x >> y >> z;
if (x>=0) cout << sqrt(x) << " ";
if (y>=0) cout << sqrt(y) << " ";
if (z>=0) cout << sqrt(z);
return 0;
}
Constn=10;m=10;
var
a:array[1..n,1..m]of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
writeln; s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
if i mod 2<>0 then
s:=s+a[i,j];
end;
if i mod 2<>0 then
writeln(s:6);
end;
<span> end.</span>
Решение 8 задания - в файле. А вообще-то, учебник надо читать!
Например, можно так:
Repeat
<Действия>
Until <Условие>
Пример:
Repeat
Write('Хочу домой');
Readln(s)
Until s='иди'
Здесь будет всё время выходить "Хочу домой" и предлагаться ввод ответа, пока не будет введено "иди".