В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для обозначения логической операции «И» – символ «&». В таблице (см. рисунок) приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет. Какое количество страниц (в тысячах) будет найдено по запросу море & волна? Считается, что все запросы выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения запросов.
Var a:array[1..1000] of integer; i,s,n:integer; begin write ('Введите размер массива n= ') ; readln(n); for i:=1 to n do a[i] :=random(50)-30; for i:=1 to n do write(a[i],' '); writeln; s:=0; for i:= 1 to n do if a[i] mod 2 <>0 then s :=s+a[i]; writeln('Сумма нечетных элементов массива = ', s); end. 2. var a:array[1..1000] of integer; i,max,min,n:integer; begin write ('Введите размер массива n= ') ; readln(n); for i:=1 to n do a[i] :=random(50)-30; for i:=1 to n do write(a[i],' '); writeln; max:=-32768; min:=32767; for i:= 1 to n do begin if a[i] >max then max:=a[i]; if a[i] <min then min:=a[i]; end; writeln('Максимальный элемент массива = ', max); writeln('Минимальный элемент массива = ', min); end.
Паскаль(в переменную а записоваем трехзначное число) program _1; var a,b:integer; s,s1:integer; begin readln(a,b); s:=a mod 100; s1:=sqr(s+b); writeln(s1); end.
На Сишке(в переменную а трехзначное) #include <iostream> using namespace std; int main(){ int a,b,c; cin>>a>>b; a=a%100; c=(a+b)*(a+b); cout<<c<<endl; system("pause"); }
Если коротко обьяснить тему, то так: суть в том, чтоб откинуть лишнее, тоесть оставить только десятки. Функция mod(паскаль) возвращает нам остаток от деления на какое нибудь число. Тоесть если мы например поделим 112 mod 100, то остаток будет 12, его мы и получим. Он же и является десятком. Тоже делает и знак % в Cишке. Если же нам надо получить целую часть от деления, то используем функцию div. Пример: 112 div 10 =11. Аналог в Сишке-знак "/" Буду благодарен за "Лучший ответ"
i,s,n:integer;
begin
write ('Введите размер массива n= ') ; readln(n);
for i:=1 to n do a[i] :=random(50)-30;
for i:=1 to n do write(a[i],' ');
writeln;
s:=0;
for i:= 1 to n do
if a[i] mod 2 <>0 then s :=s+a[i];
writeln('Сумма нечетных элементов массива = ', s);
end.
2.
var a:array[1..1000] of integer;
i,max,min,n:integer;
begin
write ('Введите размер массива n= ') ; readln(n);
for i:=1 to n do a[i] :=random(50)-30;
for i:=1 to n do write(a[i],' ');
writeln;
max:=-32768; min:=32767;
for i:= 1 to n do
begin
if a[i] >max then max:=a[i];
if a[i] <min then min:=a[i];
end;
writeln('Максимальный элемент массива = ', max);
writeln('Минимальный элемент массива = ', min);
end.