Program z1;
var s:string;
var i,n,f:integer;
var ch:char;
begin
writeln('Введите строку');
readln(s);
f:=0;
n:=length(s);
ch:=s[n];
for i:=1 to n do
if(s[i]=ch) then
f:=f+1;
if(f<>0) then
writeln('yes')
else writeln('no');
end.
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) приведена во вложении
#include <iostream>
using namespace std;
int main () {
int digit = 300;
do {
int sum = 0;
int teiler = 1;
while (teiler <= digit)
<span> {</span>
if (digit % teiler == 0)
<span> sum+=teiler;</span>
<span> teiler++;</span>
<span> }</span>
if(sum % 10 == 0)
<span> {</span>
cout << digit << endl;
<span> }</span>
<span> digit++;</span>
<span> } </span>while (digit <= 600);
return 0;
}
<span>
</span>
3)
направо 90
вперед 100
налево 90
вперед 100
повторить 2{
направо 90
<span>вперед 100}
</span><span>
4)
</span>направо 90
вперед 100
налево 90
вперед 100
повторить 2{
направо 90
<span>вперед 100}
</span>повторить 4{
повторить 2{
налево 90
<span>вперед 100}
</span>повторить 2{
направо 90
<span>вперед 100}
</span>}
компьютерые сети, в зависимости от охватываемой территории подразделяются на:
локальные, региональные и глобальные.