Сон Паскаль итальянский музыкант, приехавший в Казахстан из Лондона Его шуточные интерпретации мировых хитов вроде «Englishman in Shymkent» в дуэте с Ануаром Нурпеисовым завоевали большое внимание и одобрение казахстанской публики. Премьера клипа была представлена не только казахстанскому зрителю, также она прошла и в шотландском городе Эдинбурге.До приезда в Казахстан Паскаль работал в Италии. Затем жил в Англии и только потом попал в Казахстан по приглашению малоизвестной девушки, которая оказалась на его концерте. Сон и не думал задерживаться здесь, лишь хотел открыть для себя новую страну.<span>Сегодня музыкант уже записывает новые песни в дуэтах с известными казахстанскими исполнителями.</span>
Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
n:=1;s:=0;c:=0;
while (n<>0) do
begin
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
end;
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Program N2;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
until (c=0);
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.
1 вопрос (в)
2 вопрос (г)
3 вопрос (б)
4 вопрос (б)
Var x,y,b:real;
begin
writeln ('Введи 2 вещественных числа');
readln (x,y);
b:=x;
x:=y;
y:=b;
writeln (x,y);
realdn;
end.