Var mark:integer;
begin
readln(mark);
if mark=5 then writeln('молодец, я тобой горжусь!')
else if mark=4 then writeln('я рад, надеюсь, будет «5»')
else if mark=3 then writeln('не ленись и всё получится')
else writeln('ты, наверное, не ходишь на уроки');
end.
Пример:
4
<span>я рад, надеюсь, будет «5»</span>
Var a:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(26);
writeln(a[i]);
if a[i] > 12 then k := k + 1;
end;
writeln('Элементов массива превышающих 12: ',k);
end.
Шаг 1. Запустить графический редактор Paint (рис. 3).<span>1. Щелкнуть по кнопке Пуск.</span><span>2. В Главном меню выбрать команду Программы.</span><span>3. В появившемся подменю выбрать команду Стандартные.</span><span>4. В следующем подменю выбрать команду Графический редактор Paint.
</span><span>Шаг 2. Выберите любой основной цвет, установите указатель мыши на нужный цвет палитры и щелкните правой кнопкой мыши
</span>Шаг 3. Построение изображения.
Ну вроде бы всё
#include <iostream>
using namespace std;
int main(int argc, const char *argv[])
{
setlocale(LC_ALL,"Russian");
unsigned short int FROM = 20, TO = 32;
int s;
cout << "s = ";
cin >> s;
for (size_t i = FROM; i <= TO; i++) {
if (i % s == 0) {
cout << i << ' ';
}
}
return 0;
}
а)77
б)31 (расставляешь над цифрами степень и считаешь например 2^6*1=64 также и в (а))