ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
08.03.2009, 15:06
|
|
Новичок
Регистрация: 12.04.2008
Сообщений: 8
Провел на форуме:
78018
Репутация:
1
|
|
Решил вспомнить паскаль , сел открыл задачник нашел самую легеньку и на ней же и запоролся , помогите найти ошибку в коде
Код:
program myfirst;
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2, sytki1, sytki2: integer;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Древовидный вид