//PascalABC.NET 3.1 сборка 1219
begin
var a := Range(1, 20).Aggregate(5, (s, x)-> s + 4);
PrintLn(a);
end.
или более сложно
const
n = 20;
var
i, a: integer;
begin
a := 5;
for i := 2 to 20 do
a := a + 4;
writeln(a);
end.
Больше склоняюсь к варианту 2, т.к. точнее информации в виде кодированного текста, понимаемого компьютером и всей техникой в целом, представить я не в силах.
Const flats_per_floor = 3;var n, flat, floor: Integer;begin Write('n = '); ReadLn(n); WriteLn('Какой номер квартиры нужен человеку?'); ReadLn(flat); floor := (flat - 1) div flats_per_floor + 1; if (floor > n) or (flat <= 0) then begin writeln('Неверный номер квартиры'); exit; end; if (floor mod 2 = 1) then writeln('Едем на ', floor, ' этаж') else writeln('Едем на ', floor - 1, ' этаж');end.
#include <iostream>
#include <string>
#include <cctype>
#include <algorithm>
int main()
{
std::string abc = "abcdefghijklmnopqrstuvwxyz";
std::string name;
std::cin >> name;
for (const char &character : name)
{
abc.erase(std::remove(abc.begin(), abc.end(), tolower(character)), abc.end());
}
for (const char &character : abc)
{
std::cout << character << ' ';
}
std::cout << std::endl;
return 0;
}