Задать вопрос!

Задать вопрос!

Все категории

4 года назад

9

Информатика 3 класс автор Горячев стр 40

Информатика 3 класс автор Горячев стр 40

Информатика

1 ответ:

Klara184 года назад

0 0

Вроде этот лови и на всякий пожарный

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

Помогите, пожалуйста, составить программу в Паскале на вычесление площади и периметра прямоугольника по его сторонам! Заранее сп

ChronosX [17]

<span>Program Ploshad_Priamougolnika;
</span>Var<span>a,b : byte; {стороны прямоугольника}
</span><span>S : word; {вычисляемая площадь прямоугольника}</span>
Begin<span>Writeln ('Введите значения сторон прямоугольника');
</span>Readln (a,b);
S:=a*b;
<span>Writeln ('Площадь прямоугольника =',S);
</span><span>End<span>.</span></span>

0 0

3 года назад

A:=8 b:=8 a:=2*b/4 b:=(a+b) *(b-a)

нар

a = 2*8/4 = 4

b = (4+8) * (8-4) = 48.

0 0

3 года назад

Как происходит заполнение таблицы? Какая ошибка пользователя возможна на этом этапе?

Zolol [24]

Наименование, заполнение, раскрытие темы)
<span>неправильная последовательность</span>

0 0

4 года назад

Единицы массы пронумерованы таким образом : 1 - килограммы, 2- миллиграмма, 3- грамм, 4- тонна, 5- центнер. Дано номер единицы м

Серж200

var

ed, m: Integer;

kg: Real;

begin

Write('Введите № единицы массы (1-кг, 2-мг, 3-гр, 4-тонна, 5-центнер): ');

Readln(ed);

if not (ed in [1..5]) then begin

Writeln ('Ошибка ввода номера для единицы массы!');

Exit;

end;

Write('Введите массу в этих единицах: ');

Readln(m);

kg := 0;

case ed of

1: kg := m;

2: kg := m / 1000000;

3: kg := m / 1000;

4: kg := m * 1000;

5: kg := m * 100;

end;

WriteLn ('Масса = ' + FloatToStr(Kg) + ' кг.');

end;

0 0

4 года назад

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

Задача 5 Теория цифр Имя входного файла:digit.in Имя выходного файла: digit.out Максимальное время работы на одном тесте:1 секун

zx17092011xx

Вот, во вложении вся программа, (на free-pascal компиляция и запуск), а файлы, я думаю, вы сами сможете добавить, спрашивайте, если не понятно, удачи

0 0

4 года назад