Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
Все сложна я тебе так скажу думай сам тут если додуматься не так сложна
<span>1. Что будет выведено в результате выполнения:
<u />А: = 'Э<u>ЛЕК</u>ТРОСТАН<u>ЦИЯ</u>';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?
ЛЕКЦИЯ
2. Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?
Две длины слова, т.е. 9+9=18
3. Из слова ИН<u>ФОРМАТ</u>ИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА',3,6).
Надо взять, начиная с третьего символа, шесть символов.
4. Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?
</span><span><span>24 + 24 =48
</span>
5. Что будет выведено в результате выполнения:
А: = '<u>ЭЛЕКТРО</u>СТАНЦИЯ';
WRITELN(COPY(A,1,7)); ?
</span>
ЭЛЕКТРО
На С++ думаю что то же, что и на С
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int n;
cin>>n;
while (n>2) { n=n/3;}
if (n==1) {cout<<"YES";} else
cout<<"NO";}<span>
</span>