4 года назад

Составить программу нахождения стоимости покупки,состоящей из нескольких тетрадей и карандашей.паскаль.

Знания

Информатика

1 ответ:

Дмитритуло [9]4 года назад

0 0

Ответ:

program Purchase;

var

ik, it: Integer;

ck, ct: Double;

begin

Write ('Количество карандашей и стоимость: ');

ReadLn (ik, ck);

Write ('Количество тетрадей и стоимость: ');

ReadLn (it, ct);

WriteLn ('Всего: ', ik * ck + it * ct :10 :2);

ReadLn;

end.

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

Напишите программы в ПАСКАЛЕ!!! 10. Программа вычисляет n факториал (n!). факториалом натурального числа n называется произведен

Ахматова Алина [135]

Решение в программах ниже:

0 0

4 года назад

1)Как строится доменная система имён?2)В каких целях при передаче файлов по компьютерным сетям производится и х разбиение на инт

роман79 [3]

1) И<span>ерархический принцип. Сначала домены верхнего уровня, затем второго и третьего.
2) Скорость передачи</span>

0 0

3 года назад

Разработать программу табулирования функции для произвольного диапазона изменения аргумента с использованием оператора repeat. Y

Злой Коте [317]

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x,a,x1,x2,delta,lambda,y:real;
Write('Введите границы изменения аргумента и шаг: ');
Read(x1,x2,delta);
a:=1.44;
x:=x1;
repeat
    lambda:=Sqr(Tan(x*a/2*pi));
    y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3);
    Writeln('x=',x,' y=',y);
    x+=delta
until x>x2
end.

<u><em>Тестовое решение</em></u>
Введите границы изменения аргумента и шаг: 1.2 2.0 0.2
x=1.2 y=1.63776729113963
x=1.4 y=1.81249323168809
x=1.6 y=2.04691849426225
x=1.8 y=2.40906764678559
x=2 y=4.09613421404126

0 0

4 года назад

Задачами управления являются: Право собственности. Организация системы — полное, качественное выделение подсистем, описание их в

Danil1998

Ответ:

2 и 3 вариант верные

Объяснение:

Поставь лучший ответ пожалуйста $\pi \pi$

0 0

4 года назад

Написать программы: 1. На вход поступает последовательность натуральных чисел, заканчивающаяся числом 0 (0 - признак окончания п

Blaiddbeast

<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var (max, min, k) := (-100000, 100000, 0);

ReadSeqIntegerWhile(t -> t <> 0)

.Foreach(t ->

begin

if t > max then max := t;

if t < min then min := t;

if t mod 10 = 7 then Inc(k)

end);

Writeln('min=', min, ', max=', max, ', искомое кол-во: ', k)

end.

0 0

4 года назад

Составить программу нахождения стоимости покупки,состоящей из нескольких тетрадей и карандашей​.паскаль.

Составить программу нахождения стоимости покупки,состоящей из нескольких тетрадей и карандашей.паскаль.