Помогите эти задания зависят на оценку за четверть 1) Записать алгоритм распознания среди всех треугольников прямоугольные, если таковых нет
5-9 класс
|
вычислить периметр.
2) Последовательно вводится N целых чисел найти кол-во равных нулю.
помогите очень нужно!
2) решение со стороны qbasic
cls
input N
k=0
for n=1 to n
input L
if l=0 then
k=k+1
end if
next n
print k
Другие вопросы из категории
r=b/2 (1+sqr2) и s=8*r^2*sqr3-2sqr2
а) среднее арифметическое нечётных чисел
1.Даны два действительных числа A и B. Вывести первое число, если оно больше второго, и оба числа, если это не так.
Читайте также
помочь мне, так как данное задание решит мою оценку в четверти и мне хотелось бы, что бы она была положительна. Суть задания, вы можете рассмотреть на фотографии ниже. Заранее благодарю. Программмы писать в Паскале.
Зависит оценка за четверть
Сорри за качество
помогите с заданием ) 2 класс !!!!!! ПОЖАЛУЙСТА
обведите синим два слова с одинаковым мешком букв:
1) мандарин
2)командир
3)светофор
4)помидор
5)пудель
:)спаниель
7)апельсин
8)кардамон
9)мойдодыр
и пожалуйста обьясните как это делать плиииз :*
семестр, Dat[2] - оценка за второй семестр и т.д.). Определите что будет напечатано в результате выполнения следующего алгоритма:
Var k,m, term: integer;
Dat: array[1..8] of integer;
begin
Dat[1]:= 7 ; Dat[2]:= 7 ; Dat[3]:=6 ; Dat[4]:= 8 ;
Dat[5]:=4 ; Dat[6]:= 5; Dat[7]:= 4; Dat[8]:= 7;
term:=1; m:=Dat[1];
for k:=2 to 8 do
begin if Dat[k] < m then
begin m:=Dat[k]; term:=k
end end
write (term); end.