ПОМОГИТЕ ПОЖАЛУЙТА! ЗАВТРА СДАВАТ ЗАДАЧИ А Я В МАССИВЕ НЕ БУМ-БУМ! РЕШЕНИЕ НА…

Question

58

ПОМОГИТЕ ПОЖАЛУЙТА! ЗАВТРА СДАВАТ ЗАДАЧИ А Я В МАССИВЕ НЕ БУМ-БУМ! РЕШЕНИЕ НА ЯЗЫКЕ ПРОГРАММИРОВАНИЯПАСКАЛЬ1. Найти четные цифры трехзначного числа 2. Найти произведение элементов массива Y (4,4), значения которых вводятся с клавиатуры

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

flysvs · Accepted Answer

92

flysvs

04 марта 2023

Первое я тебе уже решила в другом задании 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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: