В какой строчке допущена ошибка в программе, написанной на языке PascalABC? Программа должна высчитывать произведение элементов целочисленного массива.
1) program summa;
2) var a: Array [1..10] of integer;
3) i, p: integer;
4) begin
5) writeln(‘Введите 10 чисел’);
6) for i:=1 to 10 do
7) readln (a[i]);
8) p:= 0;
9) for i:=1 to 10 do
10) p:=p * a[i];
11) writeln(‘Произведение элементов массива=’,p);
12) end.
Компьютер запрашивает стоимость одного килограмма конфет.
Пользователь вводит стоимость одного килограмма конфет, и компьютер выводит на экран:
Цена 0,5 кг. конфет равна … рублей
Цена 1 кг. конфет равна … рублей
Цена 1,5 кг. конфет равна … рублей
Цена 10 кг. конфет равна … рублей
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
1. Дано действительное число – цена 1 кг конфет. Вывести стоимость 0,5; 1; 1,5 … 10 кг конфет. (Подсказка – используем цикл WHILE).
Программа должна иметь следующий вид:
Компьютер запрашивает стоимость одного килограмма конфет.
Пользователь вводит стоимость одного килограмма конфет, и компьютер выводит на экран:
В какой строчке допущена ошибка в программе, написанной на языке PascalABC. Программа должна высчитывать произведение элементов
Var a,a1,a2:integer;
begin
write(‘a = ‘);
readln(a);
a1:=a div 10;
a2:=a mod 10;
if (a1=2)or(a2=2)
then writeln(‘В числе есть цифра 2’);
if (a1=5)or(a2=5)
then writeln(‘В числе есть цифра 5’);
if (a1<>2)and(a2<>2)and(a1<>5)and(a2<>5)
then writeln(‘В числе нет цифр 2 и 5’);
end.
Пример:
<span>a = 25
В числе есть цифра 2
В числе есть цифра 5</span>