1)запрещается трогать проводы,вилки
2)нельзя трогать компьютер мокрыми руками
3)нельзя включать интернет без разришения учитиля
4)если на компьютере появилось неизвесное вам окно предупредить учителя.
5)не знаю придумай сама(сам)
=)
var s1,s2: string; p:integer;
begin
writeln('Введите фамилию и имя:');
readln(s1);
p:=pos(' ',s1);
s2:=copy(s1,p+1,1)+'. '+copy(s1,1,p-1);
writeln(s2);
end.
Пример:
Введите фамилию и имя:
Иванов Петр
П. Иванов
var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
Вроде г или а, точно не знаю
#include <stdio.h>
#include <stdlib.h>
int main()
{
int n, f=0;
scanf ("%d", &n);
int a[n];
srand (time(NULL));
for (int i = 0; i < n; i++ )
{
a[i] = rand() % 20 -10;
printf ("%4d ", a[i]);
}
printf("\n");
for (int i = 0; i < n; i++ )
if (a[i]==0) f++;
if (f>0) printf("YES");
else printf("NO");
return 0;
}
Пример:
10
<span> -1 -4 0 1 2 5 -7 -8 5 6
YES</span>