|
Программы на Паскале
|
|
| Лёха | Дата: Суббота, 26.01.2013, 12:04 | Сообщение # 1 |
 Рядовой
Группа: Пользователи
Сообщений: 12
Статус: Offline
| 
|
| |
| |
| Лёха | Дата: Суббота, 26.01.2013, 12:09 | Сообщение # 2 |
|
Рядовой
Группа: Пользователи
Сообщений: 12
Статус: Offline
| var a, b , c, v: integer;
begin
write('Введите a:');
read(a);
write('Введите b:');
read(b);
write('Введите c:');
read©;
v:=a*b*c;
write('Объем параллелепипеда=',v);
read;
end.
|
| |
| |
| Илюха | Дата: Суббота, 26.01.2013, 12:11 | Сообщение # 3 |
|
Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| var a, b, c, v: integer;
begin
write ('Введите a :');
read (a);
write ('Введите b:');
read (b);
write ('Введите c:');
read ©;
v:=a*b*c;
write ('a*b*c=',v);
read;
end.
|
| |
| |
| Наташка | Дата: Вторник, 29.01.2013, 18:55 | Сообщение # 4 |
|
Рядовой
Группа: Пользователи
Сообщений: 3
Статус: Offline
| program number6;
var A,B,C: integer;
begin
write('Введите число A',A);
Read (A);
write('A');
A:=A+1;
write('Теперь A=',A);
write('Введите число B',B);
Read(B);
C:=A*B;
write('Произведение=',C);
end.
|
| |
| |
| Лёха | Дата: Вторник, 29.01.2013, 20:58 | Сообщение # 5 |
|
Рядовой
Группа: Пользователи
Сообщений: 12
Статус: Offline
| 
Выполнила Затонская Оля
|
| |
| |
| Stacia_I | Дата: Понедельник, 28.04.2014, 17:58 | Сообщение # 6 |
|
Лейтенант
Группа: Модераторы
Сообщений: 43
Статус: Offline
| var a, b , c, v: integer;
begin
write('Введите a:');
read(a);
write('Введите b:');
read(b);
write('Введите c:');
read©;
v:=a*b*c;
write('Объем параллелепипеда=',v);
read;
end.
кстати если кому надо, могу пентагон через паскаль взломать
|
| |
| |
