ПОМОГИТЕ ПОЖАЛУЙТА!! ЗАВТРА СДАВАТ ЗАДАЧИ А Я В МАССИВЕ НЕ БУМ-БУМ! РЕШЕНИЕ НА ЯЗЫКЕ ПРОГРАММИРОВАНИЯ ПАСКАЛЬ
5-9 класс
|
1. найти четные цифры трехзначного числа
первое я тебе уже решила в другом задании
var a:array[1..4,1..4]of integer;
s,i,k:integer;
Begin
s:=1;
for i:= 1 to 4 do
for k:= 1 to 4 do begin
writeln('a[',i,',',k,'] = ');
read(a[i,k]);
s:=s*a[i,k];
end;
writeln('s = ',s);
End.
Другие вопросы из категории
что ему никогда еще не приходилось ничего взвешивать тяжелее 40 килограммов и понял какие 4 гири ему нужны.Определите и Вы какие четыре гири понадобятся Семену Семеновичу, чтобы он смог на чашечных весах взвесить любое количество целых килограммов от 1 до 40.В ответе укажите через пробел в порядке возрастания 4 числа - веса гирь.
1. Написать программу, которая по введенному росту,
определит ваш идеальный вес. Если идеальный вес отличается от вашего, попросит
ввести ваш вес и выведет на экран
рекомендации по питанию и физическим нагрузкам.
Читайте также
ЗАДАЧА - Составить программу решения задачи: Z = m/(m-1)
ЗАДАЧА - Составить программу определения четных (нечетных) чисел
Дан массив, состоящий из 10 элементов. Определите, сколько элементов этого массива имеют максимальное значение.
(for i := 1 to ... do ...).
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.