Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
<span>end.
Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
<span>end.
</span>
Третье задание не понял.</span>
Его местонахождение не сразу можно выявить, словно он скрытая болезнь в организме, и может быть как серьезным и трудноустранимым, так и легким, который не так сложно устроен.
Первая задачка
int X, Y;cout << "Введите X" << endl;cin >> X;count << endl;while(Y > 0){ Y--; if((X+Y)/2 == 10){ cout << "Искомое число Y: " << Y << endl; }}while(Y < X*10){ Y++; if((X+Y)/2 == 10){ cout << "Искомое число Y: " << Y << endl; }}
1.<span>Что из ниже перечисленного имеет свойство передавать информацию?<span>
Верный ответ: </span></span><span>г) световой луч
2.</span><span>Выберете событие, которое можно отнести к информационным процессам...
Верный ответ: </span><span>б) перекличка присутствующих на уроке</span>
Напиши б,в,г только словами