Var a,b:integer; begin writeln('введите число (км)'); readln(a); b:=a*1000 writeln('метры = ',b); end.
задание 2 program dfg; var x,y,b,d:real; begin writeln('введите стоимость гостиницы (за сутки)'); readln(x); if x>0 then begin writeln('введите стоимость питания (за сутки)'); readln(y); if y>0 then beginwriteln('введит стоимость сувинир (за сутки)'); readln(b); if b>0 then begin d:=(x+y+b)*7; writeln('необходимая сумма',d); end else writeln('число не может быть отрицательным'); end else writeln('число не может быть отрицательным'); end else writeln('число не может быть отрицательным'); end.
int main(){
//1
char ch;
std::cin >> ch;
std::cout << int(ch) << std::endl;
//2
int c;
std::cin >> c;
std::cout << char(c) << std::endl;
//3
for (char ch = 'a'; ch <= 'z'; ch++)
std::cout << ch;
std::cout << std::endl;
for (char ch = 'Z'; ch >= 'A'; ch--)
std::cout << ch;
std::cout << std::endl;
//4
int v;
std::cin >> v;
for (char ch = 'a'; v > 0; v--){
if (ch > 'z') ch = 'a';
std::cout << ch++;
}
return 0;
}
a,b:integer;
begin
writeln('введите число (км)');
readln(a);
b:=a*1000
writeln('метры = ',b);
end.
задание 2
program dfg;
var
x,y,b,d:real;
begin
writeln('введите стоимость гостиницы (за сутки)');
readln(x);
if x>0 then
begin
writeln('введите стоимость питания (за сутки)');
readln(y);
if y>0 then
beginwriteln('введит стоимость сувинир (за сутки)');
readln(b);
if b>0 then
begin
d:=(x+y+b)*7;
writeln('необходимая сумма',d);
end
else
writeln('число не может быть отрицательным');
end
else
writeln('число не может быть отрицательным');
end
else
writeln('число не может быть отрицательным');
end.