а: = 123
b: = а div10 = 12
b: =b/4+2 = 12 / 4 + 2 = 5
b: =b *25+2 = 5 * 25 + 2 = 127
а: = а+b = 123 + 127 = 250
Program znanija;
const n = 5;
var
a:array[1..n] of integer;
premax, premaxi, maxi, max, i, b:integer;
begin
max := -1000;
write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin
read(b);
a[i] := b;
if b > max then
begin
premax := max;
premaxi := maxi;
max := b;
maxi := i;
end;
end;
writeln('Максимальный элемент №1: ', max, ',его номер ', maxi);
writeln('Максимальный элемент №2: ', premax, ',его номер ', premaxi);
end.
Ответ:
беспонятия, что это делает в информатике, но ладно
Решение:
28-12=16
16-10=6
Ответ:6
Объяснение:
1)12 книг никто не прочитал, поэтому спокойно их отнимаем и получаем 16
2)От 16 отнимаем общее кол-во прочитанных книг Г.Поттером, т.к. в кол-во прочитанных книг Поттером входит и те самые 6 книг прочитанных ими обоими.
Получаем 6
1(a)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
writeln(c);
readln;
d:=a-b;
writeln(d);
readln;
end.
b)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
c)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа'); //здесь вводим два числа
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
2.
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите три числа');
readln(a,b,c);
d:=a*b*c;
writeln(d);
readln;
end.
3.
Program Treugol;
var a,b,c,d:real;
begin
writeln('введите два числа');
readln(a,b);
c:=2*(a+b);
d:=a*b;
writeln(c,d);
readln;
end.
4.
Program Goda;
var R:real;
begin
write('введите R');
readln(R);
<span><span>d:=R*356;
</span><span>c:=d*24;
</span><span>m:=c*60;
</span><span>s:=m*60;
</span></span>writeln(d);
writeln(c);
writeln(m);
writeln(s);
readln;
end.
Надеюсь на лучший ответ и на спасибо:)