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

15. Значение переменной x находится в ячейке А1, значение в ячейке А3. Запишите формулы для вычисления в элект-
в ячейке А2, значение переменной
переменной у -
ронных таблицах значений выражений:
1) (x+y+ 2): 3;
2) 5x^3+ 4y^2 - 3z


15. Значение переменной x находится в ячейке А1, значение в ячейке А3. Запишите формулы для вычислен

👇
Открыть все ответы
Ответ:
alenazakhar2000al
alenazakhar2000al
28.08.2022

1) на Pascal: 
var 
t,i,j:integer; 
a:array[1..4]of integer; 
begin 
for i:=1 to 4 do 
begin 
write('Vvedite ',i,'-i 4islo: '); 
readln(a); 
end; 
for i:=2 to 4 do 
for j:=4 downto i do 
if a[j-1]>a[j] then 
begin 
t:=a[j-1]; 
a[j-1]:=a[j]; 
a[j]:=t; 
end; 
writeln('Raspolagaem 4isla v poryadke vozrastaniya:'); 
for i:=1 to 4 do 
writeln(a); 
readln; 
end. 

2) на С: 
#include <stdio.h> 
#include <conio.h> 
void main(void){ 
int n,a,b,c,d; 
printf("\nVvedite 4x-znachnoe chislo n: "); 
scanf("%i", &n); 
a=n/1000; 
b=(n-a*1000)/100; 
c=(n-a*1000-b*100)/10; 
d=n-a*1000-b*100-c*10; 
if (a+b==c+d) printf("true"); 
else printf("false"); 
getch(); 
};

4,7(100 оценок)
Ответ:
bogdanzdebskiy
bogdanzdebskiy
28.08.2022
1.                                                    

program raf105;

var  

 i: integer;

begin

 for i:=50 to 57 do

   writeln(i,' ');

end.

2.                                                    

program raf105;

var  

 i,c,sum: integer;

 sari: real;

begin

 for i:=6 to 14 do

 begin

   sum:= sum+i*i;

   c:= c+1;

 end;

 sari:= sum/c;

 writeln('Среднее арифметическое: ',sari);

end.

3.                                                    

program raf105;

var  

 i,n,sum: integer;

begin

 write('n = ');

 readln(n);

 for i:=1 to n do

   if i mod 2 = 0

     then sum:= sum+i*i;

 writeln('Сумма квадратов чётных чисел: ',sum);

end.

                                                     PascalABC 3.4.2
4,5(11 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ