@MrFlatman
Студент

Перевести код с C++ на pascal?

Всем привет, есть небольшой кусок кода на С++
#include<iostream>
    using namespace std;
     
    int main(){
    	int t, zedt;
    	while(true){
    		cin>>t;
    		if(t<=15)break;
    	}
    	zedt=15-t;
    	cout<<((double)t/15*100)<<"%\n"<<((double)zedt/15*100)<<"%\n";
    	return 0;
    }

Его нужно перевести на Pascal, я попробовал сам, как я это понимаю, но что-то не срослось, подскажите как правильнее его записать?
program massiv;
var t,zedt,t1,t2: real;
begin
read(t);
while(true) {

if(t<=15)break;
}do
zedt:=15-t;
t1:=t/15*100;
t2:=zedt/15*100;
writeln(t1, t2);
end.
  • Вопрос задан
  • 139 просмотров
Пригласить эксперта
Ответы на вопрос 1
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через TM ID
Похожие вопросы