Потому что компьютер универсальный (т.е. может использоваться в самых различных областях) и он управляется программным обеспечением
ПОМОГИТЕ ПОЖАЛУЙСТА 9 КЛАСС ИНФОРМАТИКА Массив задан целыми числами: 10, 1,12,16,5,18,19,17,21,10,11. Что будет напечатано по ок
smartu
Программа находит наибольшее число массива
Ответом будет число 21
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Число -> ');
var b:integer;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
writeln(b);
<span>end.
2)
begin
var a:=ReadInteger('Число -> ');
var s:integer;
while a>0 do
begin
s+=1;
a:=a div 10;
end;
writeln('Количество:',s);
<span>end.
3)
begin
var a:=ReadInteger('Число -> ');
var s:=0;
var p:=1;
while a>0 do
begin
s+=a mod 10;
p*=a mod 10;
a:=a div 10;
end;
writeln('Сумма:',s);
writeln('Произведение:',p);
end.
4)
begin
var a:=ReadInteger('Число -> ');
var b:=ReadInteger('Цифра->');
var p:=0;
while a>0 do
begin
if b=a mod 10 then p+=1;
a:=a div 10;
end;
writeln('Количество',b ,':',p);
end.
</span></span></span>
3, и 4 неправильно. После переименования, или название не стоит точка
а в программном блоке может оканчиваться не только var
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51)-10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
if k>0
then writeln('В массиве есть отрицательный элемент(ы)')
else writeln('В массиве все элементы >=0');
end.
Пример:
<span> -5 6 -4 13 -1 -6 9 30 36 36
В массиве есть отрицательный элемент(ы)</span>