4 года назад

Напишите программу для вычесления скорости , числа любые

1 ответ:

0 0

Язык паскаля

program skorost;
var
a,b,c:real;
begin
writeln ('Введите расстояние в км');
readln (a);
writeln ('Введите скорость в часах');
readln (b);
c:=a/b;
writeln ('Скорость = ',c);
readln;
end.

Читайте также

Рассчитать количество материи для изготовления чехлов на комплект мягкой мебели на паскале abc Нужен код программы

11228Влад11228 [4]

//PascalABC.Net 3.2.0.1467
begin
    var h := ReadlnReal('Высота =');
    var w := ReadlnReal('Ширина =');
    var l := ReadlnReal('Длина =');
    Println('Площадь поверхности = ', 2 * (w * h + w * l + h * l));
end.

0 0

3 года назад

C++.Дана матрица С(6,6). Определить количество "особых" элементов массива, считая элемент "особым", если он больше суммы остальн

trasher [3.6K]

#include <iostream>
#include <cstdlib>
#include <iomanip>
using namespace std;

int const n=6;
int const m=6;

int main() {
 int a[n][m];
 int sm;
// установка генератора случайных чисел
 srand(time(NULL));
// генерация массива и вывод на экран
 for (int i=0; i<n; i++) {
 for (int j=0; j<m; j++) {
 a[i][j]=rand()%50-20;
 cout<<setw(7)<<a[i][j];
 }
 cout<<endl;
 }
// обработка массива
 for (int i=0; i<m; i++) {
 sm=0;
 for (int j=0; j<n; j++) sm+=a[j][i];
 for (int j=0; j<n; j++)
 if (2*a[j][i]>sm) cout<<j+1<<" "<<i+1<<endl;
 }
 system("pause");
 return 0;
}

-16 -2 15 4 7 3
 -13 16 3 16 -13 3
 0 19 20 6 20 -18
 -19 7 1 10 -11 25
 5 4 3 21 28 -13
 26 -19 -7 12 -20 11
1 1
2 1
3 1
5 1
6 1
3 5
5 5
4 6

0 0

4 года назад

Дана последовательность целых чисел, признаком конца которой служит 0. 0 не входит в последовательность. Найти среднеарифметичес

Наталья1812 [1K]

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.

Пример
24 18 -25 14 6 11 0
S=8

0 0

4 года назад

Прочитать ещё 2 ответа

Цифры на экране калкулятора отображаются при помощи ячеек. Каждая ячейка состоит из 3 горизонтальных, 4 вертикальных и 2 диагона

Руслан311

По моему один ........

0 0

4 года назад

Помогите, пожалуйста с заданиями 2, 3, 4, 5. На Python (Питон) Заранее, спасибо.

Jny [50]

Решение в лоб для второй задачи.

n = int(input())
m = int(input())
ticket = 0 # счетчик счастливых билетиков
for i in range(int(n), int(m)+1):
 sum_check = 0 # проверочная сумма
 s = str(i) # создаем строку из нового билетика
 for j in range(len(s)): # проходим по всем числам
 if j%2 == 0: # если место числа четное
 sum_check += int(s[j]) # то прибавляем числа на этом месте
 else:
 sum_check -= int(s[j]) # то отнимаем число на этом месте
 if sum_check == 0: # если контрольная сумма равна нулю, то билетик счастливый
 ticket +=1
print(ticket)

0 0

4 года назад