1)
for i:= 1 to 30 do
if ((A[i]>=0) and (A[i]<=6))
then k:=k+1;
Где k - счетчик чисел.
2)
for i:= 1 to 30 do
begin
if (A[i]<0) then A[i]:=5;
else A[i]:=2;
end;
1) Количество строк будет равняться 2.
2) 23,79,-128,-129 - integer.
1.99,-65899 - real.
// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
var x,y,a,b: real;
begin
writeln('Введите массу шоколадных конфет');
readln (x);
writeln('Введите сумму потраченную на покупку шоколадных конфет');
readln (a);
writeln('Введите массу ирисок');
readln (y);
writeln('Введите сумму потраченную на покупку ирисок');
readln (b);
writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
end.
//Дана длина ребра куба а. Найти его объем и площадь поверхности
Var a: real;
begin
writeln ('введите длину ребра куба');
readln (a);
while a<0 do
begin
writeln ('вы ввели не допустимое значение попробуйте еще раз');
writeln ('введите длину ребра куба');
readln (a);
end;
writeln ('площадь куба равна ',a*a*6);
writeln ('объем куба равен ',a*a*a);
end.
4 строки (если считать верхнюю), 3 столбца
8 литров в 8-ми литровой кастрюле, 0 литров в 5-ти литровой банке, 0 литров в 3-х литровой банке (8-0-0)
1) Из 8-ми литровой кастрюли наливаем в 5-ти литровую банку (полную). (3-5-0)
2) Из 5-ти литровой банки наливаем в 3-х литровую банку (полную). (3-2-3)
3) Из 3-х литровой банки переливаем в 8-ми литровую кастрюлю. (6-2-0)
4) Из 5-ти литровой банки переливаем в 3-х литровую банку. (6-0-2)
5) Из 8-ми литровой кастрюли наливаем в 5-ти литровую банку (полную). (1-5-2)
6) Из 5-ти литровой банки наливаем в 3-х литровое (до полной). (1-4-3)
7) Из 3-х литровой банки переливаем в 8-ми литровую кастрюлю. (4-4-0)
