Задание 2, 3 во вложении
Объяснение:
Задание 1.
Сначала вводятся переменные b и с через пробел.
Мы вводим сначала с, оно равно 205, и затем b, оно равно 204.
затем идет условие.
Если с>b или b mod 2=0
Если 205>204 или
b mod 2=0 - это означает, число b кратно 2, то есть при делении на 2 оно должно дать 0.
В нашем случае 204/2=102 , то есть число 204 кратно 2, оно поделилось на него без остатка.
Первое и второе условие сработало, а значит выполняется следующее:
a:=b+2;
То есть в переменной а мы к b прибавляем 2. И у нас выходит:
a:=204+2=206
Условие иначе у нас не работает, поэтому выводим:
Writeln(a);
Программа выведет число а
206.
1. var f: real, Эта строчка обозначает ввод переменных в данный момент это переменная f и после двоеточия указывается тип переменной в данный момент стоит real - это вещественные числа, то есть нецелые
t: integer; Здесь ввели еще одну переменную ее назвали t и дали ей тип переменой Integer - это целые числа
2begin Начало программы
readln (f); Вводит число с клавиатуры и это число сохраняется в переменной f
readln (t); Вводит число с клавиатуры и это число сохраняется в переменной t
3 if (f>4) and (t<7) Это условие Если оно звучит так если F>4 и t<7
4 then тогда
5 writeln ( “YES”) Он выведет на экран слово YES
6 else writeln ( “NO”) Иначе если условие будет неверным он выведет на экран слово NO
7 end. Конец программы.
Объяснение:
ответ:
program qq;
var a: array of real;
i,n,imax: int64;
begin
write('введите количество элементов > > > ');
readln(n);
writeln('');
setlength(a,n);
for i: =0 to n-1 do
begin
write('введите элемент №',i+1,' > > > ');
readln(a[i]);
end;
imax: =0;
for i: =1 to n-1 do
if a[i]> a[imax] then imax: =i;
writeln('');
write('максимальный элемент ',a[imax],' находится под номером ',imax+1);
end.
объяснение: