Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100

@dеan · Регистрация: 15.11.2011

Author24 — интернет-сервис помощи студентам

Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100.

@Кевоин_прогин) · 08.12.2011, 20:20

Pascal

uses crt;
const
line='---------------';
 var i,z,x:integer;
     k: real;
 begin
 writeln('введите цену яблок за 1 кг');
 readln(z);
 x:=100;
writeln('Стоимость яблок');
writeln(line);
writeln('вес        цена');
writeln(line);
 while x<=1000 do
       begin
       k:=x*z/1000;
       writeln(x:5,k:10:2);
       x:=x+100;
       end;
 writeln(line);
 readkey
 end.

@J-O-K-E-R · 24.03.2021, 19:00

Паскаль, здрасьте.

А на плюсах сейчас требуется)

@ZX Spectrum-128 · 24.03.2021, 19:08

Сообщение от J-O-K-E-R

А на плюсах сейчас требуется)

Нет. Не требуется.

@mr-Crocodile · 25.03.2021, 10:42

Не по теме:

ZX Spectrum-128, это был не вопрос, а указание. ;)

@dеan 4 / 4 / 0 Регистрация: 15.11.2011 Сообщений: 46
		1
	Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100 08.12.2011, 16:37. Показов 13571. Ответов 4 Метки нет (Все метки) Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100. 0

@J-O-K-E-R 0 / 0 / 0 Регистрация: 13.07.2020 Сообщений: 7
	24.03.2021, 19:00	3
	Паскаль, здрасьте. А на плюсах сейчас требуется) 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	24.03.2021, 19:08	4
	Сообщение от J-O-K-E-R А на плюсах сейчас требуется) Нет. Не требуется. 2

@mr-Crocodile
	25.03.2021, 10:42 Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100 #5
	Не по теме: ZX Spectrum-128, это был не вопрос, а указание. ;) 0

Опции темы

Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100

Решение