program test;
const N=10000;
var a:array[1..n] of integer;
k,i,l:integer;
begin
writeln('Введите количество чисел');
readln(l);
for i:=1 to l do begin
write('Число: '); readln(a[i]);
if a[i]>0 then k:=k+1;
end;
write('Ответ: ',k);
end.
Электронный носитель информации-<span>любой материальный объект или среда, используемый человеком, способный достаточно длительное время сохранять в своей структуре занесённую в него </span>информацию<span>.</span>
Модуль - абсолютное значение( от лат. "absoluta" ) в программировании обозначается сокращением " abs() " и является ФУНКЦИЕЙ. т.е. она требует ввод значения(числа), которое указывается в круглых скобках
abs(*значение*). Можно подставлять как числа ( abs(-1); abs(24); abs(-253) ), так и выражения ( abs(5 * -1) ) . Кроме того, можно использовать переменные
abs(a), abs(a * b - c). Поскольку это функция, она ВОЗВРАЩАЕТ значение, а это значит, что мы должны ее либо вывести, либо присвоить значению переменной:
PASCAL
write(abs(a));
c:= abs(a * d*d);
Pм (периметр в метрах) = 2(a+b);
Pсм = Рм*100;
N (кол-во досок) = Рсм/10см.
Алгоритм не знаю в каком виде писать, так что делай сам(а).
var
a,b:integer;
begin
readln(a,b);
write('Нужно ',2*(a+b)*100/10,' досок')
end.
Диагонали экранов телевизоров измеряются в дюймах. Лично для меня эти дюймы это темный лес, совершенно не представляю какого размера экран. Вот что выяснила об этом. Если считать, что в 1 дюйме 2,54 см, то в 24-х дюймах примерно 61 см<span>, в 28-ми дюймах примерно 71 см, а в 32-х соответственно 81,3 см.</span>
