Var a,b,c,s:integer;beginread(a);read(b);read(c);s:=a*b*c;writeln('s= ',s);
Плюсы моноблока:
1. больше экран и лучше качество изображения.
2. наличие сенсорного экрана и возможность подключения полноразмерной клавиатуры
3. Лучше мультимедийные возможности.
Моноблок это альтернатива современному компьютеру и телевизору.
Моноблок хорош там, где слишком мало рабочего места.
Его лучше выбрать когда дома на первом месте экономия пространства и красивый внешний вид.
Подходит для любителей фильмов, не увлекающихся слишком современными играми и не работающих с ресурсоемики приложениями, например, видио и фото редакторы.
<span>Если бы мне предложили компьютер</span><span> или </span>моноблок,<span> я бы выбрала </span>компьютер <span> из-за его </span><span>полной автономности.</span>
Program ex;
var a,b,c,s,k:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите первое второе');
readln(b);
writeln('Введите первое третье');
readln(c);
if a>0 then
begin k:=k+1;
s:=a;
end;
if b>0 then
begin
s:=s+b;
k:=k+1;
end;
if c>0 then
begin
k:=k+1;
s:=s+c
end;
writeln('Сумма=',s);
writeln('Количество положительных чисел=',k)
end.
Не видно. Большие фото зделай.
Pascal abc
<em><u>Проверка</u></em>
-29 13 -23 -20 10 13 -23 -1 30 45
кол-во полож=5<span>
</span>