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

Напишите программы паскаль abc 50создать программу, используя записи расчета расхода бензина, если известны пробег и норма расхода бензина. 51создать программу, используя записи расчета фонда заработной платы, если известны количество отработанных часов и часовая тарифная ставка. 41создать программу считающую сумму элементов массива в диапазоне от 5 до 7.

👇
Ответ:
ulianakosovska0
ulianakosovska0
26.02.2022
//Pascal ABC.NET 3.1 сборка 1219

//50
Var
 a,b:real;
begin
 read(a,b);
 writeln(a*b);
end.

//51
Аналогично 50

//41
Var
 ar:array[1..10] of integer;
 i,k:integer;
begin
randomize;
 k:=0;
writeln('Array:');
for i:=1 to 10 do
 begin
  ar[i]:=random(10);
  write(ar[i]:4);
 end;
for i:=5 to 7 do
k:=k+ar[i];
writeln;
writeln('Res=',k);
end.
4,6(47 оценок)
Открыть все ответы
Ответ:
Ckorpid
Ckorpid
26.02.2022

Відповідь:

#include <stdio.h>

#include <iostream>

#include <cstdlib>

#include <time.h>

using namespace std;

void randarr(int *arr,int size){

for(int i = 0; i < size; i++){

 arr[i] = rand() % 40 + 0;

}

}

void printarr(int *arr,int size){

for(int i = 0; i < size; i++){

 printf("%d\t", arr[i]);

}

}

void sortminmax(int *arr,int size){

for(int i = 0; i < size - 1; ++i){

 int small = i;

 for (int j = i + 1; j < size; ++j){

  if (arr[j] < arr[small]){

   small = j;

  }

 }

 swap(arr[i], arr[small]);

}

}

void sortmaxmin(int *arr,int size){

for(int i = 0; i < size - 1; ++i){

 int big = i;

 for (int j = i + 1; j < size; ++j){

  if (arr[j] > arr[big]){

   big = j;

  }

 }

 swap(arr[i], arr[big]);

}

}

int main(){

srand(time(NULL));

setlocale(LC_ALL, "Rus");

int size;

printf("Введите размер массива: ");

scanf("%d" , &size);

int *arr = new int[size];

printf("Массив: ");

randarr(arr,size);

printarr(arr,size);

printf("\nСортируем массив по возрастанию от наименьшего до наибольшего...");

printf("\nРезультат: ");

sortminmax(arr,size);

printarr(arr,size);

printf("\nСортируем массив по убыванию от наибольшего до наименьшего...");

printf("\nРезультат: ");

sortmaxmin(arr,size);

printarr(arr,size);

delete[] arr;    

return 0;

}

4,8(68 оценок)
Ответ:
kazmerovichvika
kazmerovichvika
26.02.2022

№1

pers1 = 'китенок'

print(pers1)

pers2 = 'динозавр Митя'

print(pers2)

pers3 = 'Леонид Васильевич'

print(pers3)

act1 = 'плыл по морю'

print(act1)

act2 = 'рыбачил'

print(act2)

act3 = 'решал задачу'

print(act3)

def1 = 'в кузове грузовика'

print(def1)

def2 = 'в красных башмаках'

print(def2)

def3 = 'в пурпурном пиджаке'

print(def3)

print(pers2, act1, def3)

print(pers1, act2, def2)

print(pers3, act2, def1)

print(pers2, act3, def2)

№2

print('|-|--|---||||||||||||||')

№3

print(2, 3, 5, 7)

print(11, 13, 17, 19)

print(23, 29, 31, 37)

print(41, 43, 47)

№4

print('print("Привет, мир!")')

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