Паскаль.
Немного не понятно: от 1 до 10 это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку
program jjj;
var a: array [1..10] of integer; i,summa,proizv:integer;
begin
for i:=1 to 10 do begin
Writeln('напишите элемент массива номер ',i); read(a[i]);
end;
For i:=1 to 10 do begin
if a[i] mod 2=0 then summa:=summa+a[i] else
proizv:=proizv*a[i];
end;
Writeln(summa,' ',proizv); readln;
end.
Противный случай - это то же самое, что в другом случае или на языке информатики "иначе".
По-моему, в вашем случае "противного случая" нет, т. к. все возможные значения х учтены в первых случаях: число х может быть меньшим 0, большим 0, или равным 0. Но, если не придираться к условию, то программа выглядит так:
program funkciya;
var x, y: real;
begin
write('x='); readln(x);
if x<0 then y:=sin(sqr(x)) + 2*x
else if x>=0 then y:=sqrt(x)+sqrt(sqr(x)+1)
else y:=cos(x);
write('y=',y:5:2)
end.
//PascalABC.NET 3.0
begin
var a := ReadReal('a =');
var b := ReadReal('b =');
var c := ReadReal('c =');
b -= c;
if (a = 0) and (b = 0) then writeln('Уравнение имеет бесконченое множество корней')
else if a = 0 then writeln('Уравнение не имеет корней')
else writeln('Уравнение имеет один корень: ', -b / a);
<span>end.</span>
Отдай куклу воспитательнице она найдет хозяйку
А вдруг какая нибуть девочка потеряла её и теперь плачет домты поймешь скорее всего воспитатель спросит ненаходил ли ктт куклу
Возможно мама девочки позвонит
Сначало нужно уточнить у воспитателя не терял ли кто куклу
Очень даже будут рады
2 что нужно отдавать найденные вещи хозяину или хотябы попытаться найти его
Const
N=10;var
a,b: array[1..N] of integer;
r,m,i,y: integer;
beginwriteln('Дано 10 кубиков.');for i:=1 to N do begin
a[i]:=random(6);
b[i]:=a[i]+random(3);
end;
for i:=1 to N do
if (a[i]+1=b[i]) and (a[i]>3) then
r:=r+1; writeln(r,' кубиков(а) из дерева.');
for i:=1 to N do
if (a[i]+2=b[i]) and (a[i]>3) then
m:=m+1; writeln(m,' кубиков(а) из металла.');
for i:=1 to N do
if(a[i]+3=b[i]) and (a[i]>3) then
y:=y+1; writeln(y,' кубиков(а) из пластмассы.');
end.