Помогите решить в паскале

Question

Другие языки программирования и технологии

Помогите решить в паскале

Вывести на экран
1. таблицу перевода 5,10,15....120 долларов США в рубли по курсу, вводимому с клавиатуры.
2. таблицу стоимости для 10,20,30....100 штук товара, при уловии что одна штука товра стоит вводится с клавиатуры
3.таблица перевода расстояний в дюймах в сантиметры для значений 2,4,6...12 (1 дюйм=25,4 мм)
4.кубы всех целых чисел от А до Б
5.все целый числа от А до Б оканчивающиеся на Х
6.все целые числа от А до Б оканчивающие на Х или У
7.все целые числа от А до Б оканчивающие на любую четную цифру
8.положительные целые числа от А до Б
9.целые числа от А до Б кратные трем
10. цетные числа от А до Б кратные трем

Дмитрий Набокин

97

17.12.2012

Похожие вопросы

Answer 1 · 2012-02-17 01:32:49

1) Write('Курс = '); ReadLn(K);
D := 5; repeat WriteLn('$', D, ' = ', D*K:0:2, ' руб. '); Inc(D, 5); until D > 120;
2) Write('Цена = '); ReadLn(K);
D := 10; repeat WriteLn(D, ' шт. = ', D*K:0:2, ' руб. '); Inc(D, 10); until D > 100;
3) D := 2; repeat WriteLn(D, ' дюйм = ', D*2.54:0:1, ' см. '); Inc(D, 2); until D > 12;
4) Write('A = '); ReadLn(A); Write('B = '); ReadLn(B);
for N := A to B do WriteLn(N, '^3 = ', N*N*N);
6) Write('A = '); ReadLn(A); Write('B = '); ReadLn(B); Write('X = '); ReadLn(X);
D := 1; while D < X do D := D*10;
for N := A to B do if N mod D = X then WriteLn(N);
7) Write('A = '); ReadLn(A); Write('B = '); ReadLn(B); Write('X = '); ReadLn(X); Write('Y = '); ReadLn(Y);
Dx := 1; while Dx < X do Dx := Dx*10; Dy := 1; while Dy < Y do Dy := Dy*10;
for N := A to B do if (N mod Dx = X) or (N mod Dy = Y) then WriteLn(N);
8) Write('A = '); ReadLn(A); Write('B = '); ReadLn(B);
if A < 0 then A := 1; if B < 0 then begin WriteLn('Нет'); Halt; end;
for N := A to B do WriteLn(N);
9, 10) Write('A = '); ReadLn(A); Write('B = '); ReadLn(B);
N := A div 3; if A mod 3 > 0 then Inc(N);
repeat WriteLn(N*3); Inc(N); until N*3 > B;

Назим Кадиров

79 210

Лучший ответ

17.02.2012