Вводится последовательность натуральных чисел. признак конца ввода – 0. определить количество соседств двух чисел разного знака. желательно на паскале, и без массива.
1 var i, minus, plus, zero: integer; t: array [1..15] of integer; begin minus := 0; plus := 0; zero := 0; for i := 1 to 15 do begin readln(t[i]); if t[i] > 0 then plus := plus + 1; else if t[i] < 0 then minus := minus + 1; else zero := zero + 1; end; end.
2 var stroke: string; begin readln(stroke); if length(stroke) mod 2 = 0 then writeln('Четно'); else writeln('Нечетно'); end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4 var max, min, i: integer; A: array[1..20] of integer; begin min := a[1]; max := a[1]; for i := 2 to 15 do begin if a[i] > max then max := a[i]; if a[i] < min then min := a[i]; end; end.
1) Непрерывное значит и бесконечное в чем-то Цифровая информация дискретная по своей сути. И чтоб что-то сохранить в цифровом виде необходимо дискретизировать.
2) Растровые изображения разделены на пиксели, каждый из них имеет свой цвет. Принцип похож с человеческим зрением, так как сетчатка состоит из палочек-колбочек которые чувствуют свет. Потому растровые изображения довольно реалистичны с человеческой точки зрения Но растровые изображения занимают много памяти и маштабируются с потерями
3) Цифровые фото и видео камеры, сканеры и тп
4) Амплитуда - громкость, частота - высота звука
5) 24 кадра в секунду. Слышали же про 25 кадр, который человек не видит) Хотя сейчас fps обычно 30 или больше.
program NumberOfDifferences;
var sum, a, b: integer;
begin
sum := 0;
readln(a);
b := a;
while a <> 0 do begin
readln(a);
if ((a < 0) and (b > 0)) or ((a > 0) and (b < 0)) then
sum := sum + 1;
b := a;
end;
writeln(sum);
end.