Просто выделяй обе эти ячейки и растягивай их
Если писать на QBasice то будет примерно так:
1. DIT a(i)
4. IF i = 0 THEN 11
6. IF i > 0 THEN 13
7. IF I < 0 THEN 15
10. END.
<span>11. PRINT i
</span>12. END.
<span>13. PRINT i
</span>14. END.
<span>15. PRINT i
</span>16. END
Могу ошибаться) Точно не могу написать..
Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
#include <iostream>
using namespace std;
void main(){
for(int i=100;i<=500;i+=50){
double km = i*1.068;
cout<<i<<" verst = "<<km<<" km"<<endl;
}
}
var
s:string;
begin
read(s);
writeln(UpperCase(s));
end.