Простенькая задачка, нужно срочно!!!! - Форум
Пятница, 09.12.2016, 12:39
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи на системы счисления » Простенькая задачка, нужно срочно!!!!
Простенькая задачка, нужно срочно!!!!
AlyonaДата: Воскресенье, 17.04.2011, 23:06 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
1) Ввести три вещественных числа. Выбрать и распечатать те из них, значения которых лежат в диапозоне => 0 и <= 1500!!! smile

2) И ввести следующие исходные данные
- фамилия сотрудника
- номер отдела где работает сотрудник (7символов)
- зарплата сотрудника
распечатать введенные данные в виде таблицы
! номер отдела ! фамилия ! зарплата ! отчисления в пенс. фонд !

 
Developer1Дата: Вторник, 19.04.2011, 19:08 | Сообщение # 2
Подполковник
Группа: Заблокированные
Сообщений: 24
[ 0 ]
Статус: Offline
Обращайся
icq: 588002847
email: flash_1989@ukr.net
skype: rfhfcerf
 
KOT_B_MEIIIKEДата: Вторник, 19.04.2011, 19:52 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
program n1;
var a,b,c:integer;
begin
write('Введите через пробел числа a,b,c: ');
read(a,b,c);
if (a>=0) and (a<=1500) then write (a:5);
if (b>=0) and (b<=1500) then write (b:5);
if (c>=0) and (c<=1500) then write (c:5);
end.

Добавлено (19.04.2011, 19:52)
---------------------------------------------
program n1;
const proc=13; {procent z/p v pensionniy fond}
var fam:string[7]; i,nomotd,zp:integer;pf:real;
begin
write('vvedite familiyu (7 simvolov max): ');read(fam);
write('vvedite nomer otdela : ');read(nomotd);
write('vvedite zarplatu : ');read(zp);
pf:=proc/100*zp;
writeln('! Номер отдела ! Фамилия ! зарплата ! отчисления в пенс фонд !');
write('!', nomotd:8,' ! ');
for i:=1 to length(fam) do write (fam[i]);
for i:=length(fam)+1 to 7 do write(' ');

writeln(' !', zp:8,' ! ', pf:11:2,' !');
end.

Сообщение отредактировал KOT_B_MEIIIKE - Вторник, 19.04.2011, 19:53
 
Форум » Решение задач по информатике » Задачи на системы счисления » Простенькая задачка, нужно срочно!!!!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016