Program massa;var m, a: real; begin writeln('Введите массу.'); readln(m); writeln('Введите единицу измерения массы. 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна, 5 - центнер.'); readln(a); writeln('Введённое вами значение равно '); if a=1 then write(m, ' килограмм.'); if a=2 then write(m/1000000, ' килограмм.'); if a=3 then write(m/1000, ' килограмм.'); if a=4 then write(m*1000, ' килограмм.'); if a=5 then write(m*100, ' килограмм.'); end.

меее, немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок

0 0

4 года назад

Разгадайте кроссворд "Отношения объектов и их множеств" мне надо только одно "Графическое (наглядное) изображение связей между о

lusqi lusi

Думается мне, что "схема отношения"

0 0

4 года назад

Создайте программу, которая выводит из слова букву которая стоит посередине или в другом случае две по середине. Язык паскаль

salavat1985

begin

var s := ReadlnString();

if s.Length.IsOdd then

Write(s[(1 + s.Length) div 2])

else

Write(s[s.Length div 2], s[s.Length div 2 + 1])

end.

0 0

4 года назад

Задайте пяти ученикам пять оценок с клавиатуры. Найти средний балл Нужно написать программу, вроде

ElvisK [14]

var a,s:real;

b:integer;

begin

s:=0;

for b:=1 to 5 do begin

writeln('Введите оценку:');

read(a);

s:=s+a;

end;

s:=s/5;

writeln('Средний балл:',s);

end.

0 0

3 года назад