Var i,k:uint64;
begin;
k:=1;
for i:=19 to 64 do
k:=k*i;
write(k);
end.
3)
#include <iostream>
#include <string>
int main()
{
std::string s;
getline(std::cin , s);
std::string temp = s;
for(int i = 0 ; i != s.size() ; ++i)
{
temp[i] = (char)((int)s[i] - 1);
}
std::cout<<temp;
return 0;
}
4))
#include <iostream>
#include <vector>
#include <string>
int main()
{
int n;
std::cin>>n;
std::vector<std::string> list(n);
for(int i = 0 ; i != list.size(); ++i)
{
getline(std::cin,list[i]);
}
int cnt = 0;
for(auto a: list)
{
for(auto b : a)
{
if(b == '2' || b == '3')
{
cnt++;
break;
}
}
std::cout<<cnt;
return 0;
}
Вот ОДНО из ВОЗМОЖНЫХ рассуждений (вероятно, можно уловить и другие алгоритмы):
В числе А - одна единица
В числе Б - две единицы
В числе В - три единицы
В числе Г - две единицы (то есть поехали назад...)
Значит в числе Д - ОДНА единица, т.е. Д - 100
1. После выполнения присваивания в первых 3х строках получим a=90
2. Следовательно с=90-3*6 = 72
Ответ: 72
Ответ:
реализовал на паскале
Объяснение:
program While22;
var i, num:integer;
isSimple : boolean;
Begin
isSimple :=true;
readln(num);
if (num mod 2 = 0) and (num<>2)then isSimple := false;
i:=3;
while i*i<=num do
begin
if (num mod i=0)then begin isSimple := false;break; end;
i:=i+2
end;
writeln(isSimple)
end.