0 / 0 / 0
Регистрация: 31.03.2009
Сообщений: 16
1

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

31.03.2009, 23:56. Показов 2552. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
ребят, помогите пожалуйста!!!! очень нужно!!!
1. Составить программу, которая печатает таблицу перевода из килограммов в фунты(1фунт=0,410 кг) для значений от 1 до 10 кг с шагом 1 кг
2.Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.
3.Даны 2 точки с координатами(x1,y1) (x2,y2).Определить, какая из них ближе к началу координат.
Буду очень очень благодарна!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! )))))))))))))) Заранее спасибо!!!!!!!!!!!!!!!!!!!!!!!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2009, 23:56
Ответы с готовыми решениями:

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

Составить программу, которая выводит на экран таблицу перевода 1, 2, 3...20 долларов США в рубли.Курс доллара вводится с клавиатуры.
ПРОТОКОЛ Введите курс доллара: 20.57 1 д. = 20.67 2 д. = 41.34 3 д. = 62.01

Написать программу, которая для заданного целого числа а печатает таблицу
а а3 а6 а6 а3 а

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

1
57 / 57 / 36
Регистрация: 17.03.2009
Сообщений: 105
01.04.2009, 06:12 2
Лучший ответ Сообщение было отмечено Солнышко как решение

Решение

Решение первой задачи:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program Zadacha;
uses crt;
var
 kilo:array[1..10] of integer;
 funt:array[1..10] of real;
 i:integer;
 
 
begin
 clrscr;
 for i:=1 to 10 do begin kilo[i]:=i; write(kilo[i]:7); end;
 writeln;
 for i:=1 to 10 do begin funt[i]:=kilo[i]/0.41; write(funt[i]:7:3); end;
 readkey;
end.
Добавлено через 39 минут 2 секунды
Решение третьей задачи:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program Zadacha;
uses crt;
var
 
 x1,x2,y1,y2:integer;
 
 
begin
 clrscr;
 writeln('Vvedite koordinati pervoi tochki:');
 readln(x1); readln(y1);
 writeln('Vvedite koordinati vtoroi tochki:');
 readln(x2); readln(y2);
 if abs(x1)+abs(y1)>abs(x2)+abs(y2)  then writeln('Vtoraya tochka blige k nachalu koordinat');
 if abs(x1)+abs(y1)<abs(x2)+abs(y2)  then writeln('Pervaya tochka blige k nachalu koordinat');
 if abs(x1)+abs(y1)=abs(x2)+abs(y2)  then writeln('Obe tochki ravnoudaleni ot nachala koordinat');
 readkey;
end.
1
01.04.2009, 06:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2009, 06:12
Помогаю со студенческими работами здесь

Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит области
Составить линейную программу, которая печатает true, если точка с координатами (х, у) принадлежит...

Pascal составить программу, которая печатает true, если точка с координатами (х, у) принадлежит области
Составить линейную программу, которая печатает true, если точка с координатами (х, у) принадлежит...

Составить программу которая распечатать таблицу умножения и сложения
Помагите пожалуйста??? Составить программу которая распечатать таблицу умножения и сложения...

Составить программу, которая печатает турнирную таблицу по футболу
Составить программу, которая печатает турнирную таблицу по футболу(программа на записи); необходимо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru