М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Брат111111111
Брат111111111
25.04.2022 20:58 •  Информатика

Электрандык почтаны калай жиберуге болады
-
- -
- -
-
-
-
-
-
-
Н
-

- -
-
-
- -
- -
-
г- - - - - - - - - - - - Т- - - - - -
-
-
-
-
micrу е Сала 2.
-
) Akmrolo к поли тало қалам
-
-
-
-
-
-
- - -
-
-
1 - - -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

Электродык почтаны калай жиберуге болады

👇
Открыть все ответы
Ответ:
Людочка6789
Людочка6789
25.04.2022
Паскаль(в переменную а записоваем трехзначное число)
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. Аналог в Сишке-знак "/"
Буду благодарен за "Лучший ответ"
4,4(35 оценок)
Ответ:
zoeves
zoeves
25.04.2022
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.
4,5(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ