Var
a,b: string;
i: integer;
ka,kb: boolean;
begin
readln(a);
readln(b);
for i:=1 to 10 do
if a[i]='s' then ka:= true;
if ka then writeln('s in A');
for i:=1 to 20 do
if b[i]='q' then kb:= true;
if kb then writeln('q in B')
<span>end.</span>
Var n: Word;
begin
write('Введите число ');
readln(n);
write((n mod 10 = 3) or (n div 10 mod 10 = 3) or (n div 100 = 3));
readln;
end.
#include <stdio.h>#include <math.h>using namespace std;int main() { size_t n = 2; // Уадяемая цифра int number = 2346224; // Задавай число printf("Входное число: %d\n", number); int sig = number >= 0, temp = number; number = 0; size_t i = 0; while (temp) { int k = temp % 10; if (n != k) { number += (k)* pow(10, i); i++; } temp /= 10; } number *= sig; printf("Результат: %d\n", number); system("pause"); return 0;}
Легко я по этому предмету 5+
Можно найти в ноутбуке папку такую "Удаленные файлы", удаляешь, стираешь эти файлы, и удаляешь их из корзины. Или скачать программу, которая удаляю файлы, которые ты выбрал, а потом удаляй саму программу